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BUGS.. .BUGS.. .BUGS. 


Les « BUGS », ce sont 
les erreurs de toutes 
natures découvertes 
(Trop tard !) dans 
notre bulletin. 


Pour commencer très fort : les bugs des « bugs » 
du numéro 17; 

§ 4 ligne 1 

L=TAN x = SIN x / COS x 
§ 6 Remplacer tous les blancs par " ". 

(Malgré plusieurs tentatives d'initiation de notre imprimeur 
à l'informatique, celui-ci continue à penser que nous pla- 
çons nos petits signes " $ &" pour faire joli... 

Page 1 9, astuce 2 
Input $( ), $( ) 

Astuce 3 

dans l'expression, ZI est à remplacer par Z>1 
Page 26 

1 ere . ligne, 2 e . colonne : GOSUB NNNN:N = N-P 
Page 14 "A la recherche de l'entier" 

Colonne 2 : INT A par NOT -A + 1 
Page 22 

WORD LISTER, contrairement à ce qui a été écrit, est tout 
à fait relogeable. 

MZ 

Numéro 16 page 62 

TEXY 

Ajouter ",1100" en fin de lignes 210 
Ajouter "GOTO 870" en fin de ligne 850 


Numéro 17 page 61 

Si vous possédez un MZ 700, il vous faudra modifier le 

programmme 

SAISIE HEXA ainsi : 

230 IFT 1 6THENT $ = "0" + HEX$(T):GOT0240 
235 T$ = RIGHT$(HEX$(T),2) 

L'instruction BEEP est à remplacer par MUSIC"A" 


Numéro 12 page 18 

(Voir corrections CADRAN SOLAIRE) 

55 Q=ATN(1/TAN B/K) + W + 180*(B<0) 

60 FORG-PTOQSTEPM 
62A-ATN (K*TAN F) + B 
145 S - ATN(*RC0S(G/4- W)) 

200 PRINT"GRAND 8" 

221 N = 31*M-31 -3*(M>2)-(M>4)-(M>6)-(M2 
>9) — (M> 1 1 ) 

240 FOR F = 1 TO 3 : U = (T-0)/Q + E*180/7r*SIN U : 
NEXTF 

241 V = 2 * ATN (TAN(U/2)*\ ((1 + E)/(1 -E))) 

BULLETIN n° 16 
PAGE 29 

Considérations temporelles 

20:CLEAR :DIM A$(0)*78:A$ = "7F7F7F":A$(0) = A$ 
+ A$ + A$ + A$:A$(0) = A$(0) + A$(0) + A$(0) + A(0):G- 
PRINT A$(0);A$(0);A$(0);A(0) 


PAGE 22 

Colonne 2 et ligne 4 

Pour introduire l'instruction, soit deux-points soit rien. 


PAGE 28 

La logique du Polinominal Counter 
Colonne 2 

Remplacer les + par des 
et c + c h par c =c h 


PAGE 15 

"LINCO" Modifier ligne 1520 
1520:1F M(K,P)< > THEN 1550 


BULLETIN n° 10 

Dans la case 01, il y a SBC (X) et non SBX 


PAGE 27 

Astuce 1 

Fin de texte : SPACE INS 




dub 
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ET LE BASIC ! 


C'est l'expression que l'on retrouve dans bon nom- 
bre de vos lettres et qui remet régulièrement en 
question l'éternel problème de l'initiation au 
BASIC. Nous n'avons, jusqu'à ce jour, jamais 
entamé de série d'articles d'initiation pour deux 
raisons essentielles : -1- Le nombre de pages de 
notre bulletin est limité (finances obligent) et la 
densité d'informations y est très importante, tel- 
lement importante qu'on atteint parfois la limite 
de lisibilité ! Il nous paraît donc plus opportun d'uti- 
liser cette surface pour la présentation et l'expli- 


cation d'applications crées par vous et directe- 
ment exploitables sur vos PC ou MZ. Une initia- 
tion au BASIC tenant compte des spécificités de 
chacune de nos machines occuperait une place 
importante et nous obligerait à supprimer certai- 
nes de ces applications. -2- Il existe sur le marché 
une bonne trentaine d'ouvrages consacrés exclu- 
sivement à l'initiation BASIC. Hormis quelques ins- 
tructions particulières, les BASIC Sharp sont très 
proches du BASIC standard dont traitent la majo- 
rité de ces ouvrages ; il ne nous parait donc pas 


utile de réinventer le monde et de réécrire ce qui 
a été déjà expliqué moulte fois. 

Parallèlement à cette initiation, ce numéro du Shar- 
pentier inaugure une nouvelle rubrique intitulée 
tout simplement "BASIC" qui tentera d'expliquer 
quelques notions fondamentales de programma- 
tion adaptées aux basic's de nos machines et agré- 
mentées d'exemples. Alors, si vous avez trouvé 
la routine-géniale-inédite-super élaborée-qui- 
permet-de... n'hésitez pas à nous en faire profiter 
pour que cette rubrique vive, grâce à vous. 



Monsieur, 

Je vous prie de trouver ci-joint une photocopie 
d'un programme dont je suis l'auteur, publié dans 
la revue MICRO 7 d'avril 1983. 

Comme il est facile de le vérifier, toute la partie 
calculs proprement dite, c'est-à-dire la grande 
majorité des lignes, a été reproduite telle quelle 
dans le programme THEME ASTRAL de monsieur 
Philippe PAILLOU publié dans la revue du Club 
numéro 17. 

Le procédé manque de correction ! C'est le moins 
qu'on puisse dire, car il était facile de me contac- 
ter pour accord avant d'adapter mon programme 
pour une présentation graphique différente. ..et le 
faire publier. 

Le programme publié dans MICRO 7 me valut un 
certain courrier ; c'était, pour la plupart, des pro- 
blèmes d'adaptation à d'autres machines ! 

Mais des remarques d'astrologues un peu « puris- 
tes » m 'ont amené à refaire une nouvelle mouture 
de ce programme dans laquelle les « cupsides » 
des maisons sont calculés avec toute la précision 


nécessaire ainsi que les principaux « ASPECTS » 
qui manquaient dans la version d'avril 1983. 
Cette nouvelle version a été publiée dans le 
numéro Spécial Informatique de la revue MEGA- 
HERTZ de 1984 ; elle a sans doute échappé à M. 
Paillou... 

Pour information et à toutes fin utiles... 

Veuillez agréer, Monsieur, l'assurance de ma meil- 
leure considération. 

Jean MAZET 

Monsieur MAZET ne nous a pas demandé de 
publier ce courrier, nous avons cependant préféré 
le faire, par souci d'honnêteté et pour clarifier une 
situation qui pourrait devenir très dangereuse pour 
l'avenir de notre bulletin. 

Le fait de publier et de faire profiter à des milliers 
de lecteurs du fruit de ses travaux ou de ses 
recherches procure toujours un plaisir et une satis- 
faction personnelle et intellectuelle qui font sou- 
vent oublier les nombreuses heures passées dans 
la mise au point du programme ou de l'article 
publié. Il est, par contre, très frustrant de retrou- 


ver ces mêmes travaux, généralement légèrement 
modifiés, et signés de la main d'une tierce per- 
sonne. C'est pourquoi nous comprenons parfaite- 
ment le désarroi et le mécontement légitimes de 
Monsieur MAZET et lui adressons toutes nos 
excuses. 

Au-delà de ce qui ne doit pas être un procès d'in- 
tentions, il peut être utile de signaler que nous 
recevons parfois des articles très documentés qui 
se révèlent être de pâles copies d'articles déjà pu 
liés dans d'autres revues. 

Comme nous lisons pratiquement toutes les 
revues d'informatique, nous avons pu éviter cet 
éceuil... jusqu'au numéro 17. 

Pour éviter qu'une telle mésaventure ne se repro- 
duise, ne nous faites parvenir que des program- 
mes ou articles dont vous êtres l'auteur à 100% 
cela permettra à notre revue de conserver l'origi- 
nalité, l'indépendance et le caractère unique qui 
font sa force. 

S.B. 




Puissance, Communication el 
compatibilité, tels sont les 3 
maître-mots qui ont présidé à 
la conception du dernier né et 
du plus puissant des ordina- 
teurs de poche de la gamme 
Sharp : Le PC 1 600. Ses 
potentialités lui permettent de 
traiter l'information à armes 
égales avec les « gros » ordi- 
nateurs de table tout en con- 
servant les deux atouts 
majeurs d'un « Pocket » : la 

R ortabilité et une très grande 
exibilité d'emploi. 


PRESENTATION 

Ce qui frappe, dès la première prise en mains, c'est 
l'incontestable air de famille avec le grand-frère PC 
1500. Dimensions extérieures rigoureusement 
identiques, même ergonomie du clavier, même 
« look » dans le choix des couleurs du boîtier. Pas 
de doute, les concepteurs du PC 1 600 ont tenu 
à conserver les avantages pratiques et l'esthéti- 
que qui ont fait le succès du PC 1 500. A première 
vue, la seule différence notable, c'est l'afficheur. 
Il comporte maintenant 4 lignes de 26 caractères 
et peut afficher 4992 points en mode graphique. 


LA MEMOIRE 

Là, inutile de rechercher les ressemblances. Dans 
le PC 1600, c'est la profusion. Jugez plutôt : 96 
Ko. de ROM qui contiennent 2 basic's, dont un en 
mode PC 1 500, un système d'exploitation de dis- 
quettes (oui ! oui !) et une gestion complète des 
entrées-sorties et communications externes. 
Quant à la RAM disponible pour vos programmes 
et données, elle atteint les 80 Ko. (Quatre-vingt 
mille octets... pour les sceptiques). Cette mémoire 
est modulable en fonction de vos besoins. Equipé 
à l'origine de 16 Ko., le PC 1600 peut recevoir 
deux modules supplémentaires de 32 Ko. chacun. 
Comme dans tous les PC, la totalité de la mémoire 
est non volatile et conserve les informations 
qu'elle a reçues lorsque la machine est éteinte... 


Ainsi gonflé, le PC 1600 peut rivaliser sans com- 
plexe avec la grande majorité des micro- 
ordinateurs dits « de table » tout en sachant res- 
ter très discret dans votre poche ou dans un coin 
de votre malette. 



Les 2 logements pour modules mémoire 


L'UNITE CENTRALE 

Ou plutôt LES unités centrales ; car dans le PC 
1 600, il y a deux microprocesseurs : Un LH 5803, 
cousin germain du LH 5801 bien connu des pos- 
sésseurs de PC 1 500 et une version CMOS du très 
célèbre Z80 qui équipe tous les micros de table de 
la série MZ. Pourquoi deux microprocesseurs ? 

D'abord pour conserver la compatibilité logicielle 
avec la très importante bibliothèque de logiciels du 
PC 1 500 ; ensuite pour obtenir une rapidité de trai- 
tement équivalente à celle des gros ordinateurs. 
Le basic du PC 1600 fonctionne pratiquement 
trois fois plus rapidement que celui du PC 1 500. 


UN SYSTEME COMPLET 
INTEGRE 

Le PC 1600 est, en fait, le cœur d'un ensemble 
comprenant tous les éléments utiles à l'exploita- 
tion optimale d'un système informatique complet 
- Eléments intégrés dans un boitier unique et pro- 
tégés dans une malette robuste et esthétique. 


L'UNITE DE 
DISQUETTES 

Etudiée spécialement pour les ordinateurs de 
poche, elle utilise des disquettes au format 2,5 
pouces et permet le stockage ultra rapide de 1 28 
Ko. (64 Ko. par face) de données ou programmes 
en mode séquentiel . Le transfert d'informations 


entre l'unité centrale et la mémoire de masse 
atteint ainsi un niveau de sécurité et un fiabilité 
nettement supérieurs au système à cassette ; 
l'emploi d'un magnétophone restant cependant 
possible. 



Les disquettes au Format 2,5 pouces 


L'IMPRIMANTE 

Intégrée dans le même boitier, l'imprimante table 
traçantes CE 1600P permet l'impression de tex- 
tes ou graphiques sur papier en feuilles ou rouleaux 
au format A4 (21 x29,7 cm). Quatre couleurs 
sont possibles pour l'écriture grâce au système à 
barillet dont la fiabilité a été largement démontrée 
sur les différentes imprimantes de la gamme 
Sharp, de la plus petite (CE 1 50) à la plus sophis- 
tiquée (CE516 P) ; ces deux modèles peuvent 
d'ailleurs être également connectés au PC 1 600. 


LA COMMUNICATION 

C'est l'un des points fort du PC 1600. Son inter- 
face RS 232 intégrée permet le dialogue avec pra- 
tiquement tous les systèmes informatiques petits 
ou grands. La connexion à un modem acoustique 
permet la télécommunication avec de très nom- 
breuses bases de données. La véritable révolution, 
dans ce domaine, prend la forme d'un cable ano- 
din, long et fin. Dans ce cable, point de fils de cui- 
vre, mais une fibre optique qui, comme son nom 
devrait l'indiquer, conduit de la lumière et non de 
l'électricité. Ou est la révolution ? Tout simple- 
ment dans le fait que les transmissions sérié peu- 
vent maintenant s'effectuer sur de très grandes 
distances, à des vitesses ou la traditionnelle trans- 
mission électrique s'essouffle (38 400 bauds, 
dans notre cas), et à l'abri de toutes perturbations 
électriques dues à un environnement industriel 
sévère : Hautes tensions, parasites électriques, 
etc. 



LES APPLICATIONS EN TEMPS REEL 

Un jeu complet d'instructions du basic permet au 
PC 1600 de rester en veille et d'exécuter une 
tâche à un moment précis programmé par son hor- 
loge interne ou commandé par l'interface RS 232. 
Ces fonctions, très utiles pour la programmation 
d'envoi ou de réception de messages par modem 
trouvent également de nombreuses applications 
dans l'industrie et la recherche : surveillance, con- 
trôles de processus etc. 


LA COMPATIBILITE 

Digne héritier du PC 1 500, le PC 1 600 se devait 
de bénéficier de tous les acquis de son ainé. Là, 
il faut reconnaître que les concepteurs du PC 1 600 
ont fait très fort car, tant au niveau logiciel que 
matériel, la compatibilité entre les deux machines 
est pratiquement totale. Autour du PC 1 600, pour- 
ront, en effet, prendre place tous les périphériques 
du PC 1 500 : Interface imprimante CE 1 50, modu- 
les mémoire CE 151, CE 155, CE 159, CE 161, 
table à digitaliser CE 1 53, interface parallèle - 
RS 232 CE 1 58 etc. Tous les logiciels conçus en 
basic sur le PC 1 500 tourneront également sans 
difficulté sur le PC 1600. Un second niveau de 
compatibilité semble également avoir été envisagé 
puisque le générateur de caractère du « 1600 » 
est totalement compatible avec celui d'un autre 
PC, celui d'I.B.M. A ce stade, il nous faudra un peu 
de patience pour en savoir plus. Ce rapide survol 
des caractéristiques techniques de notre nouveau 
PC a été écrit après une toute petite journée de 
prise en mains, il reste donc beaucoup à décou- 
vrir. Pour l'instant, nous sommes encore sur le 
coup de l'étonnement car, avoir réussi à intégréer 
sous le même volume qu'un PC 1 500, deux micro- 
processeurs, 176 Ko. de mémoire, une interface 
série, une interface fibre optique, un afficheur de 
4 lignes relève tout de même de l'exploit ! 


S. B. 
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Le cable en fibre optique 



SYSTEME 



MULTIPOSTE 
CONTRE 
RESEAU LOCAL : 
UN COMBAT 
FRATRICIDE 
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« Qu'est-ce qu'un réseau ? », « Quelles sont 
les procédures de télécommunications ? », 
« Qu'est-ce que l'informatique répartie ? » 
autant de questions posées par ce mot magi- 
que et très à la mode dans les salons infor- 
matiques : La COMMUNICATION. Si vous 
posez ces questions aux dits spécialistes, 
leur réponse passera généralement par 3 
phases successives : d'abord un long silence 
gêné qui vous en apprendra beaucoup sur la 
complexité du problème posé ; puis un tor- 
rent de termes techniques duquel vous pour- 
rez puiser quelques mots dont l'hermétisme 
et l'ésotérisme vous feront plus penser à un 
réseau d'espionnage qu'à un réseau de com- 
munications : RS 232, V24, CCITT, paquets, 
jetons... ; enfin viendra la sentence : « Tout 
système informatique non dédié à la commu- 
nication est condamné à disparaître à plus 
ou moins brève échéance ». 


S'il existe encore une certaine confusion au 
niveau des moyens, l'avenir de nos micro- 
ordinateurs, lui semble tout tracé. Tôt ou tard, 
ces systèmes sont voués à une cohabitation paci- 
fique (tiens, tiens...) et à un dialogue cohérent. 

Tout ordinateur trublion désirant faire cavalier 
seul se verra vite relégué au rang des antiquités 
dans le placard ou dorment actuellement envi- 
ron 50% des consoles familiales. En micro- 
informatique, l'élection, à candidat unique, de 
MINITEL au titre de président à vie a permis la 
standardisation d'un protocole unique de com- 
munications. Là encore, si tout est simple (ou 
presque) au niveau de l'utilisateur final connecté 
à sa ligne P.T.T., il en va très différemment du 
côté des sites centraux, émetteurs des informa- 
tions et connectés entre eux par un éventail inex- 
tricable de réseaux et une foule de procédures 
de télécommunications. 



Le Système Multipostes SHARP M 56 


RESEAUX LOCAUX ET COMMUNI- 
CATIONS 

Autant il est permis aux hommes de raconter à 
peu près tout et n'importe quoi, autant on défend 
catégoriquement à une machine dite intelligente 
de dire que 2 + 2 = 5. Pour bien comprendre le 
faux problème des télécommunications ou les 
vraies solutions réseau, il est important de cam- 
per le décor et de reprendre quelques notions 
élémentaires de théorie. Pour cela, prenons notre 
microscope (un gros, si possible...) et obser- 
vons... Dans le coeur même de l'ordinateur, entre 
les mailles atomiques du cristal de silicium, une 
grande quantité de minuscules particules se 
déplacent d'un point à un autre, telles des four- 
mis, au travers de quelques millions de portes 
dites logiques. Le « Grand Boulevard » du 
microprocesseur, appelé égalemet BUS permet 
la circulation du flot de ces électrons selon un 
code de la route bien établi. Ce même code se 
retrouve dans les différents bus de l'ordinateur 
où il s'agit de faire la police (arbitrage du bus) 
et de parer au plus pressé (Gestion des priori- 
tés). Sorti de l'enceinte protectrice du boitier de 
l'ordinateur, le flot d'électrons devient très vul- 
nérable ; si des perturbations se présentent sur 
son chemin, il ne sera pas étonnant que 2 + 2 
soient égaux à n'importe quoi mais certainement 
pas à 4. Pour que deux équipements informati- 
ques éloignés de quelques centimètres ou de plu- 


sieurs années-lumière puissent communiquer, il 
leur suffit de deux éléments : un support pour 
la liaison et un protocole pour s'assurer que l'in- 
tégralité des données est bien passée d'une 
machine vers l'autre. Des premiers ordinateurs 
mono-tâche, on est rapidement passé aux machi- 
nes multi-tâches, multi-postes, multi-utilisateurs. 
Deux obstacles à une bonne transmission restaient 
à franchir : la distance et les perturbations (para- 
sites). 

La distance : dès l'instant ou les nombreux utili- 
sateurs d'un même site central ne pouvaient pas 
être regroupés dans une même salle ou dans un 
même bâtiment, les supports de transmissions de 
données se sont diversifiés, on en trouve main- 
tenant de nombreux : Cable coaxial, ligne télé- 
phonique, fibre optique, satellites etc. 

Les pertubations : qui dit distance, dit interrup- 
tions intempestives, parasites de toutes sortes, 
ajout ou suppression d'impulsions, bref, défor- 
mations du signal original émis. De plus, ce 
signal voit son intensité diminuer après avoir par- 
couru une certaine distance dans le fil qui l'em- 
mène à destination, il est donc nécessaire de le 
réamplifier régulièrement. Ne parlons pas des 
lignes publiques P.T.T. dont les « fritures » se 
mêlent allègrement aux bits qui voyagent. En fait, 
la migration des octets d'un microprocesseur vers 
un autre ressemble à un véritable parcours du 
combattant. 




LES TELECOMS 

Il a donc été nécessaire d'introduire dans les 
transferts de données des procédures ou formes 
de politesse (de l'anglais « is'nt it ») augmentant 
la fiabilité des échanges d'informations. D'abord 
assez frustres, puis de plus en plus complexes, 
on les appelle des protocoles. Utilisée dans un 
premier temps pour relier un terminal à un site 
central, la télécommunication est passée d'une 
liaison point par point à une liaison multi-points 
grâce au partage de la ligne dans le temps (Mul- 
tiplexage). Notons enfin une certaine unification, 
chez certains constructeurs des procédures 
réseaux et télécoms (ex : le S.N.A. d'IBM) ; leur 
caractéristigue étant une relative lenteur malgré 
le mode multiplexé. 


LES RESEAUX 

Devant la demande accrue en puissance et 
capacité réclamée par les utilisateurs, les cons- 
tructeurs d'ordinateurs ont relié entre eux cer- 
taines unités centrales pour optimiser les res- 
sources et augmenter le nombre des postes de 
travail. Différents protocoles sont utilisés pour 
assurer la liaison entre ces postes, leurs diffé- 
rences essentielles avec les télécoms résident 
dans le débit d'informations. En effet, deux ou 
plusieurs unités centrales doivent communi- 
guer entre elles à très grande vitesse car le 
volume d'informations à transmettre est 
énorme. Les réseaux représentent également 
une forme de stratégie informatigue. Face au 
centralisme des calculateurs géants du numéro 


1 mondial (devinez gui...) la réponse consiste 
à faire travailler en parallèle plusieurs 
« petits » ordinateurs pour obtenir la puissanxe 
d'un gros ; cela s'appelle de l'informatigue 
répartie et permet de fractionner un système 
tant au niveau de l'investissement gue de la 
maintenance. 

Les notions de télécom et de réseau sont utili- 
sées depuis très longtemps (c'est très relatif en 
informatigue) sur les systèmes « lourds » con- 
çue à l'origine pour fonctionner en multi- 
tâches ; elles se vulgarisent progressivement 
sur les minis, dans la foulée d'IBM. 

Via les télécoms, il est en effet parfaitement 
possible d'émuler un écran de site central 
grâce à une carte appropriée et à un logiciel 
ad-hoc. La liaison s'effectue en mode TWINAX 


Architecture du Système M 56 


portaointe des applications (langages M, 
Microbol, C, Pascal, Basic, Assembleur). 


Accès muiticritères jusqu’à’ 20 dés. 


Accès séquentiel indexé 



Accès séquentiel 


(!) Noyau superviseur gestion des 
périphériques 



r'r 


Système de réseau local Sharpnet Xnet (8) 


Système de gestion de communication de données ( 7 ) îîj 




SYSTEME 


(paire torsadée), COAXSYS (cable coaxial) ou 
par une transmission série du type V24 et un 
MODEM (MOdulateur-DEModulateur pour 
ligne téléphonique). Ces logiciels d émulation, 
utilisés principalement sur le PC d'IBM (qu'il 
faut pas confondre avec un Pocket Computer !) 
sont actuellement très à la mode pour 2 
raisons : 

• Le double emploi du PC ; autonome avec sa 
batterie de logiciels dédiés et en émulation 
écran-clavier sur un gros système pouvant per- 
mettre de lancer simultanément plusieurs 
applications. 

• I^mise en commun de fichiers permettant 
d'utiliser une petite partie du disque du site 
central comme mémoire de masse pour le 
micro ; le gros ordinateur étant utilisé comme 
serveur de fichier en mode local ou en télécom 
(ex : TEMPUS, LINK,...). 

Autre utilisation de la communication : le par- 
tage des périphérique. Comme il est très oné- 
reux de poster derrière chaque console une 
imprimante rapide et un disque de grande capa- 
cité, ceux-ci sont utilisés en réseau par tous les 


utilisateurs. Ce partage a été une des premières 
raisons d'être du réseau local qui devient main- 
tenant un véritable outil de bureau intégrant une 
messagerie, une connection au télex, au minitel 
et permettant un dialogue permanent avec des 
sites centraux, en mode local ou par réseau télé- 
phonique. Le réseau local est également consi- 
déré comme une passerelle entre les différentes 
marques d'ordinateurs et leurs incompatibilités. 
Il permet d'homogéiniser l'environnement infor- 
matique d'une société tout en conservant des 
machines spécifiques dédiées à des tâches par- 
ticulières. 

Dans un futur proche, il n'est pas aventureux de 
prédire une fusion du réseau téléphonique et du 
réseau local, un mariage des réseaux locaux et 
de l'image (téléconférence, visiophone). 
L'évolution des communications représenterait 
une épouvantable pagaille si une tentative de 
normalisation ne venait pas mettre un peu d'or- 
dre dans cette foultitude de connexions. 

Dans les télécom entre sites centraux, le numéro 
1 mondial à imposé des standards de facto adop- 
tés par un certain nombre de constructeurs. 


Cependant, chaque grand constructeur conserve 
sa solution propre (BULL, NIXDORF, DEC...) qui 
est parfois plus évoluée mais qui présente tou- 
jours des « passerelles » (solutions Hardware et 
Software de liaison) avec les protocoles d'IBM. 
Mêmes constatations pour les réseaux locaux de 
grands sites ; c'est seulement pour les micros et 
supermicros qu'ont été adoptés des standards de 
communications rédigés par l'OSI, Organisme 
de Standardisation de l'Information. Ces normes 
laissent le choix d'un grand nombre d'interpré- 
tations mais gageons que si Big Blue (devinez 
toujours qui c'est) se positionne sérieusement 
dans ce domaine comme nous l'avons constaté 
dans le domaine du standard de l'IBM PC. 

La communication, c'est l'outil d'avenir de l'en- 
treprise qui doit, dès maintenant, utiliser ses 
énormes potentialités pour progresser. Celles qui 
ne l'auront pas compris sont vouées à l'échec à 
plus ou moins court terme. 

Edouard Bernard 
Sylvain Bizoirre 
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îôlutié^^ P 


Il est faci 


une equa 


oudre en quelques minutes 


P :: 1 : Donne les valeurs successives de x(t ) f un sacnrif exemple p us oomp lif ne : 

x({?),.J.X(n|) et le nombre d itér^tiorfsTCin a rête | 14|.8934 xi + 2.3m<,+ 3.004 x,+ 0.9 
er appuyé nt iüFON/BREAK quaricTôi pensé ^ 9 ^= 1:^53183 
"qïëTiippf wîriation est suffisâTTRrrPc ssîtiîtrEe + 9 9 1 9 3 < 2 l ~ 4 ITf TTx 3 + 2. 9 

~ar:haiq ue e t j?e u c on s e i l lée: 391 x 4 = 0. 7 21 92 


En mo ns de 15 secorideé, a\lec P 242 . rioud 


on niti 


regie ae ua 
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10: "JA C "REM RESOLUT I ON _D_UN_ SYSTEME _D_E QU AT I ONS_ P AR_ LO _ME 
THODE_DE_JACOBI 

30: REM COP YR I GHT_PAR_LU I S_ I GM AC I 0_M ARCHES I 
40: REM *****_METHDDE_JACOBI 
50 : CLEAR :WAIT O 

6 O : C L S : INPUT " Mb_d_eOuo. t -l on s _ = " 5 N 
65: INPUT “Cholx_Ho_=" 5 P 
68:1F P = 2 I HPUT " Nb_ I terat 1 on s_ = " 5 S 
69:1F P = 3 INPUT "Erreur_< " ; ER 

70 : D I M A(N+1,N+1),C(N),X(N),Y(N),P(N),D(N),U(N) 

90: INPUT M IMPRESSION-! 1-0 )_=" : IM 
120: FOR J = 1 T O N 
130:CT="C( "+STR$ J+" )=" 

1 40 : PR I NT C$5 
150: INPUT Cf J ): CLS 
160: NEXT J 
170: FOR I = 1 TD N 
180: FOR J = 1 T O N 

190: A$=" Af "+STR$ I+","+STR$ J+" )=" 

200: PRINT A$; 

210: INPUT A( I ? J ): CLS 

220: NEXT J 

230: NEXT I 

240 : FOR I = 1T0 N 

245: U ( I ) = 0 

250: Df I ) = C ( I )'At 1,1) 

260: P( I ) = D( I ) 

270: IF R = OLET X( I ) = D( I ) 

280: NEXT I 

290: IF R=OGOTO 400 

300 : FOR I = 1TD N 

310: FOR J = 1 T O N 

320: IF I = J GOTO 350 

330: Yf I ) = A ( I , J )*Xf J ).- Af 1,1) 

340: P ( I ) = P( I ) — Y ( I ) 

350: NEXT J 
360: NEXT I 


3 7 O : FOR I = 1TD N 
380: XC I ) = Pf I ) 

390: NEXT I 

395: IF P = 2 0 R P = 3GOTO 470 
400 : FOR I = 1T0 N 
405: IF 1=1 BEEP 5,10 
410: X$="Xf "+STR$ I + " )=" 

420: NAIT 120 

430: IF P=20R P=3LPRIHT X$5XfI) 

435: IF P = 20R P = 3ANB R > O A N D I=NLPRINT R; " — ITERATIONS" 

440 : I F I M = O A N D P=1PRINT X$;XfI)5" " ; R 

445: IF I M = O A N B P=1LPRINT X $ 5 X ( I ) 5 " " 5 R 

450: NEXT I 

455: IF P = 3AND C = N G D T D 490 
460: IF I M = 1 L F 1 
470: R=R+1 

475: IF R=SGOTO 400 

476: IF R > S A N D P = 2G0TD 490 

478: IF P = 3 G O S U B 600 

479: C=0 

480: GOTO 240 

490: END 

600: FOR 1=1 TO N 
6 1 O : FOR J = 1 TD N 
620: Uf I ) = U f I ) + A ( I , J )*Xf J ) 

630: IF J = N L E T Uf I ) = Ut I )-Cf I ) 

640: IF ABS U f I XERLET C = C+1 

650: NEXT J 

660: NEXT I 

670: IF C = N G O T O 400 

680 : RETURN 



Problème ancestral classique, la 
résolution d'équations de degré 
supérieur à 2 se révèle particu- 
lièrement intéressante à réali- 
ser avec les ordinateurs de 

PRINCIPE 

Soit f une fonction numérique et E un sous- 
ensemble des réels. Résoudre l'équation f(x) =0 
consiste à déterminer les éléments de E, dont 
l'image par f est nulle. La résolution de telles 
équations intervient dans de nombreuses bran- 
ches des mathématiques, ainsi que dans d'au- 
tres disciplines scientifiques. Une résolution 
purement algébrique est parfois possible, et 
permet de déterminer exactement les solutions 
de l'équation étudiée. Cette résolution se fait 
souvent par le biais de changements de varia- 
bles, qui aboutissent à la résolution d'équations 
plus simples. Il est cependant clair que ces 
méthodes ne sont en aucun cas généralisable; 
nous ne les retiendrons donc pas. 

Ainsi, de façon plus générale la résolution de 
l'équation consiste d'une part, à déterminer des 
intervalles contenant chacun une unique solu- 


poche. Nous en établirons 
d'abord les principes, puis 
exposerons ensuite différentes 
méthodes simples pouvant faire 
l'objet d'un programme. 

tion, et d'autre part, à déterminer des valeurs 
approchées de chaque solution. On s'attache 
alors à concevoir des algorithmes permettant 
l'obtention de valeurs approchées successives, 
avec des incertitudes de plus en plus faibles 
jusqu'à la précision souhaitée. Non moins inté- 
réssante sera la comparaison de leurs 
performances. 

METHODES 

Méthode de dichotomie : 

Soit f une fonction continue sur un intervalle 
[a, b], et telle que f{a)*f(b)<0. L'équation 
f(x) =0 admet alors au moins une solution sur 
l'intervalle [a, b]. En supposant que la solution 
est unique, on calcule f ((a + b)/2). On compare 
ensuite le signe du résultat avec les signes de 
f(a) et de f (b). Ce qui permet de situer la solu- 


tion dans l'un des deux intervalles [a,a+b/2] 
et [a + b/2, b]. Ce travail est réitéré jusqu'à l'ob- 
tention de la précision requise. La dichotomie 
indexée permet un « balayage » des x possi- 
bles, sans contraintes. C'est la méthode utili- 
sée ici. ■ 

Méthode d'interpolation linéaire ou des parties 
proportionnelles : 

Dans la dichotomie, on partage systématique- 
ment l'intervalle de séparation de la solution 
étudiée en deux parties égales. Or dans la plu- 
part des cas, la séparation des racines conduit 
à étudier la fonction dans un intervalle, où sa 
courbe est voisine d'une droite. Il semble donc 
que l'on ait intérêt à utiliser non pas le milieu 
(a + b)/2, mais l'intersection de l'axe des abcis- 
ses (Y = 0) avec la corde (A, B), où A et B sont 
des points de coordonnées (a,f(a)) et (b,f(b|). 
Cette intersection aurai donc une abcisse c telle 
que f(a) + (f(b)-f(a))*((c-a)/(b-a)) = 0. Soit 
c=(af(b)-bf(a))/(f(b)-f(a)|. En bref, cette 
méthode revient à partager l'intervalle [a, b] 
dans le rapport k = -f(a)/f(b). Le gain en rapi- 
dité de convergence allant avec une plus 
grande complexité. Selon les équations, elle 
sera plus ou moins rentable. 

Méthode de Newton : 

Celle-ci est assez différente des précédentes, 
mais repose sur le même principe. Reprenons 
les points A(a,f(a|) et B(b,f(b|) : La méthode de 
Newton consiste à déterminer les tangentes à 
la courbe en ces points, et leurs intersections 
avec l'axe des abeisses. Certains algorithmes 
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730; GOSUB ">": IF ABS Y>T THEN "! 
740: : e" IF ABS CX-MX.l THEN "j 
750: Q=Q+1 : UY=UY+1 : CURSOR C24XUY) : 
PRINT ">>X'S STR$ g; ■■ = ••; x; •'<<" 
1»M=X: IF SI$="0" GOSUB " < 

760: IF UY< >3 THEN "j 

770: UY=0: BEEP 1: NAIT : PRINT : N 

780: "j"A=A+R,B=B+R: GOTO ,! h 

790: " ! " IF Y >0 THEN "m 


0: "(c)FEURIER-1986-BC- 


250: '' >"Y=X A 4-2*X A 3+X^2-X-1 

270: 

280: RETURN 

290: '‘A" WAIT 0: CLEAR* : CLS : OIN FX$<0 
)X80: RESTORE ">":DE= PEEK 8.6F22+ 
PEEK &6F23X256 

300: CURSOR 28: PRINT "Benoit Chaffanjon 
CURSOR 56: PRINT "Pnesente": 
GOSUB "+ 

310: CURSOR 25: PRINT "Resolution d^eAua 
tions": CURSOR 53: PRINT "dans les 
neels"; GOSUB GOSUB 

320:CLS : PRINT "1)> Dichotomie indexée 
- : PRINT "2)> Méthode de Newton. .. 

330 : PRI NT "3)> InterPo I at.i on 

. PRINT " 4 ) > Fin. .. . . . 

340: "X" ON UAL I NKEY$ GOTO "w" ? "z" ? "U" ? 


Dichotomie indexée" 


IntenPo I at I on 


: GOTO "X 

CLS : END 


• : "z" CLS : LIAIT 0: 0=0, A=lE-3> W=l/2> G 
=0? F=U > Z=0: DIM QC9): IF SI$="0" 

LET ZX=l: GOSUB "Z" 
i:"l" IF 2=0 GOTO "2 
i:G=G-W»C=G: GOTO "3 
l: 2"C=G? Z=l: CLS : CURSOR 7: PRINT " 
Méthode de Newton" 

i: "3" GOSUB "5" . f=f+W» C=F: GOSUB "5": 
IF INKEY* <>"" THEN "A 
: GOTO "1 

:' ! 5" GOSUB "s": X=C: GOSUB ">":B=Y ? X= 
A+C: GOSUB " >" . D=C, C=D-AXB/ < Y-B > : 

IF ABS <D-C)>T GOTO "5 
: IF Q=0 GOSUB "9 

:BT=BT+l: IF BT>30 BEEP 1: NAIT ; 
PRINT : GOTO "A 

" FOR 1=0 TO Q-l: IF ABS (C-Q(I)XIE- 
5 LET I =Q> UU=7 

: NEXT I: IF UU=7 LET UU=0: RETURN 
: "9"Q(Q)=Ct X=C> P--0» 0=Q+1: UY=UY+1: 
CURSOR CUYX24X PRINT ">>XX STR$ Q 

; "=";cr <<": if si$="ü" gosub "( 

: IF UY<>3 RETURN 

: UY=0 : BEEP 1: NAIT . PRINT : LIAIT 0 
: RETURN 

: "6" WAIT : PRINT : GOTO "A 


: X=C: GOSUB ">":B=Y,X= 
" • D=C»C=D-AXB/(Y-B>: 

T GOTO "5 


530: "y" IL=9: CLS : CURSOR 9: PRINT "Int 
enPolation": IF SI$="0" LET ZX=3: 
GOSUB "Z 
540: GOTO "q 

550: "w" CLS : CURSOR 13: PRINT "Dichoto 
mie": IF SI$="0" LET ZX=2: GOSUB "Z 

560: "q"R=3/4t W=l/2» A=- 10 , B=A+1 
570: "h "X=A: GOSUB ">":C=Y»X=B: GOSUB "> 
GOSUB "s": IF ABS C<T THEN "b 
580: IF ABS Y<T THEN "c 
590: GOTO "d 
600: "b"X=A: GOTO "e 


1140: " Ce) -Ben. Chaffanjon 
1150: J 


RESOLUTION D^EQUATION 


Dichotomie indexée 


>>Xl=-9.424777957<< 


>>X2=-7.853981632<< 


>>X3=-6. 283185306<< 


'>>X4=-4.71238898<< 


>>X5=-3.141592654<< 



)>X6=-1. 570796329<< 
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qufvo js^ïïeî^Dr pf itaffi 


cela 


mn 


:Hf ■' 0'"-Ef F0> 

: FüR M--L ro Lf 
:FÜR H--L FO LU 

: 1 F 11 1 Df 1 UAf , N , i *» -- N 1 Df < Hf < 0 ) , Il , 1 .» 
LE F HfF0>- L EFFf i'H^('0'),|-l-i:»+MlD# t'B 
u, h, r> ^iGHFf ('h$«'0:.,lf-I'1') 

: l-IEX r N 
: NEXT 11 
: REFORN 
: "POSITION 
:: F--0 

: FOR J--L FO lFN HfF0> 
i:C$u-HD$ «' Hf f 0 , J , 1 '> 

;:IF Cf-"F" lET 0--J:T--rt-l 
1: IF CV--V GOSUB 530 
1: NEXT J 
i:OOrO 5“>0 
1 : F - J : T--T-1 
1 : J-lEN HfF0> 
i! I F T<Q GOTO 680 
1: RE r URN 
1 : ’UAlEUR 
1: LG -F 0 -3: S -0*2 
ülF lG- 0 OR lG^3 GOTO 680 
1: 1 F l'UDî < HfF0'>,üt-l,l'> = " LET X -URL 
frilD$ 0 1 . 0*-2> 1 ■> '> J R-l -X: 0-0 *-1: F- 
OM: 60 FO ^00 

1 : 1 F i-U Df . U1< 0i. F -2. 1'-" LET Y --UAL 
< M I Df < Hîi ; 0 > , F - 1, i ') V. A-i -y: F -F -1:0- 
F-l: GOTO "’OO 

1 : X-UAl «lllDf FHtf0^O+l,P) 

1: F--UAL flIlDt ''H$('0'i,F-l,l'*'> 

1 : C $ -U i Df « Hf <'0>, S . !.. G *• 

1: IF Cf-"&" L ET A--XKY: GOTO 680 
1: 1 F Cf - U" lEF A'-Xt-V-X^ï: GOTO 690 
is LF Cf-- ' - " LET A--1-X+XYY: GOTO 690 
1 : i F Cf - lET A--1-X-Y*-2*X*Y: GOTO 

690 

1: BEER 2: PR INF "Formule Illégal©": 

60 ro 1Ü 

l : 1 F 0--1 BEEP 1: PRINF Blf;" "ï 
SFRf A: REFORN 

i:Hf 1 0> -l_EFFf 1 Hf 1' 0 ■> . 0 - i ^ «-S TR# t'A'»*- 
RlGHFf r Hf F0'i , lEN H*r0>-F'» 
i:l F lEN Hf •' 0 - 3 BEEP 1: PR INT BUS" 

- " î S r Rf A: RETURN 
CGOFO 490 


Formule: 

V = >r r'A&B'^- C '• 

Uat-iables: 

ABC 

000 -> L 

001 -> i 

010 1 

011 -> 1 
100 -> 1 
101 - > 1 
1L0 1 

1 L L -> L 


r or- mule: 

< < A&B -- ^ <{' UD > < - N f F c - "D '• U ■' B" D > 


Uai'iables: 

ABCD 


0001 -> 1 
0010 -> 1 
0011 -> 1 
0100 1 

0101 -> 1 
0110 > 0 
01 LL L 

1000 L 

L001 L 

L010 -> 1 
10 LL > 1 
1100 -> 0 
1101 -> 1 
1110 -> 0 
IL 11 -> 1 


: " «' c; » T . AllARY 
: L. 1 ClEAR 

: D1N H^f0U80,E#<’0U80 
: PAUSE "^LOGIQUE NATH^F" 

: ÏNPUT "Formule: ";E$«'0) 

: Ef F 0'i - ■■ rEfF0'> f v 

: "UARIABlES 
: FOR 1--1 FO LEN Ef<'0'> 

: Ef-UlDf f EfF0) ,1,1') 

:1F Cf--"U" GOTO 100 

MF CVCHR* 91 AND Cf ' '8" GOSUB 120 

: NEXT 1 

: GO F 0 180 

: F OR J--1 ro F 

: 1 F Cf -Il 1 Df F UAf , J , l'> GO TO 1?0 
: NE X F J 
: T - F 1 1 
: UAf "UAf «-Cf 
: REFORN 

: BEEP l: PAOSE "Uai-iables: " : WA 1 T 70 
: PR INT UAf: PR INT MAI T 

: " PROGRAMME 

: LU - lEN UAfïLF-LEN E f F 0 :< 

: FOR 1 ~0 FO 2 LU -1 
: GOSUB 2~ J 0 
: GOSOB 
: GOSUB 490 
: NEXF 1 
: GO TO 10 
: "BINAIRE 
: X" 1 : B 1 f - " ' 

MF X'F 2 lEF B1 f -SFRf Xfr.Blfî GOTO 350 
:Q-- INF <X 2'» 

1 : R _ -X - f 2 *Q 1 
': Blf -SFRf Rt-Blf 
t: X -Q 

1: GO FO 290 

tMP LEN Blf- LU LEF B If -"0" »-Blf : GOTO 
390 

i? p r rupu 

1: " 1 NSE R F BiN 


I i ! 


X. 
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BNH3ASIG 1 ^w^4a^3fi€imetHflt^f,0ivefifipte-ëesi - 

P s T c j°4 ?4' c q t 1 ttt dfL ~ 

tant de tijava Hër sur Ses nombre» Ig bits, bp | 1 ^ ^ | 
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BASIC ET RECURSIVITE 


Voici un article qui vous fait part 
d'un style de programmation 
que i'affectionne beaucoup tôt Ifi 
programmation récursive. 
Même si ce style de programma- 
tion est destiné à des machines 
permettant la définition de 
variables locales, de procédures 
et de fonctions évoluées, le but 
de mon article est de prouver 

LA PROGRAMMATION RECURSIVE 

J'ai longtemps cru qu'un ordinateur ne faisait 
que ce qu'on lui demandait de faire... ce n'est 
pas tout à fait vrai. 

J'étais persuadé que les programmes n'étaient 
qu'une suite d'instructions à exécuter, avec de 
temps en temps des boucles et des tests qui 
tenaient compte des résultats obtenus... 

... mais il est une autre programmation, moins 
courante et plus passionnante encore : la pro- 
grammation récursive. 

La programmation traditionelle est basée sur 
la décomposition d'un problème complexe en 
une suite d'opérations élémentaires qui seront 
exécutées séquentiellement. 

La programmation récursive elle, suppose que 
le problème complexe peut se ramener à un 
problème élémentaire appelé cas de base. Elle 
nous demande aussi de trouver une relation 
simple qui y conduit. Elle ne se soucie pas de 
la notion du temps. 

La relation simple qui conduit au cas de base 
est en fait un lien entre le problème complexe 
et le même problème d'un degré de complexité 
plus petit. Pour y voir plus clair, illustrons la dif- 


qu'elle est aussi très facilement 
concevable sur des machines qui 
ont un basic « standard », 
moyennant quelques « régies » 
simples. 

Les exemples fournis sont réali- 
sés sur les PC-1 500 mais il n'y 
a normalement aucun problème 
en ce qui concernerait une adap- 
tation sur d'autres machines (1 ) 

férence entre ces deux concepts par un 
exemple. 

Ecrire un sous-programme qui étant donné un 
nombre N, positif ou nul, imprime à l'écran, la 
suite de nombres l\l (N -1).. 21 1 2.. (N — 1 ) N. 

Par exemple, 

pour N =4, on obtient 4 3 2 1 1 2 3 4. 
pour N=0, on obtient rien du tout. 

Le premier programme qui vient à l'esprit se 
déroule dans le temps et imprime successive- 
ment les valeurs de N à 1 puis de 1 à N... c'est 
la programmation traditionnelle. 

Le programme aura l'allure suivante, 

10 INPUT « SUITE = » ; S 
20 WAITO 
: N=S 

: GOSUB 100 
30 : WAIT : PRINT : END 
100 REM 

110 IFN=0THEN GOTO 130 
120 FOR I = N TO 1 STEP -1 
: PRINT I ; 

: NEXT I 

: FOR 1 = 1 TON 


: PRINT I ; 

: NEXT I 
130 RETURN 

La programmation récursive recherche un cas 
de base : dans notre exemple, il me semble évi- 
dent que c'est le cas de la suite « vide », celle 
qui correspond à N =0 où il ne faut rien faire ! 
Il ne nous manque qu'à exprimer notre pro- 
blème complexe - écrire la suite N - en fonc- 
tion du même problème de complexité plus 
petite - écrire la suite (N - 1 ). 

Pour trouver cette relation, il suffit de se dire 
qu'on sait résoudre le problème de complexité 
plus petite... elle vient alors tout de suite : 
écrire la suite N, c'est (si N est plus grand que 
0 ), 

(a) écrire N, 

(b) écrire la suite (N — 1 ), 

(c) écrire N. 

On remarque, comme prévu, que le sous- 
programme aura besoin de lui-même pour écrire 
la suite N - 1 II! 

En programmation récursive si on utilise une 
machine qui n'a pas un basic procédural, il est 
un certain nombre de règles qu'il faut accep- 
ter dans un premier temps, et qu'il est intéres- 
sant de comprendre par la suite. 

Il faut avant tout, 

(0) remplacer toutes les variables du sous- 
programme par des variables indicées, càd 
des tableaux. La dimension de ceux-ci étant 
égale la complexité du problème initial. 

Il faut ensuite, 

(1) avant l'appel du programme principal au 
sous-programme, placer R=0. 

(2) au début du sous-programme, placer 
R = R+1. 

(3) à la fin du sous-programme, placer 
R = R-1. 

(4) indicer toutes les variables sur lesquelles le 
programme travaille effectivement par R. 

(5) indicer tous les paramètres que l'on passe 
au sous-programme par R + 1. 

(6) indicer tous les paramètres qui reviennent 
du sous-programme par R - 1. 
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Vous pouvez vérifier que ce programme fournit le résultat attendu... et 
le comparer avec celui que nous avions réalisé en programmation 
traditionnelle. 

Il faut bien comprendre la ligne 120 - application des règles (4) et (5) - 
et qui donc 

(a) imprime le N courant, 

(b) passe comme paramètre N, la valeur de N courant moins un, 

(c) puis imprime encore le N courant. 

L'intérêt de la programmation récursive n'apparaît que dans des exem- 
ples plus subtils... 

Vous avez sûrement déjà écrit un programme qui cherchait une solution 
à un problème que vous même ne saviez pas résoudre mais en tout cas, 
vous saviez comment faire résoudre à votre place le problème par votre 


machine. Par exemple, pour une recherche de racines de fonction, la 
méthode de la tangente ! 

Avec la programmation récursive, vous pouvez résoudre des problèmes 
sans avoir aucune idée de la manière avec laquelle l'ordinateur devra trou- 
ver la solution... on comprend pourquoi la récursivité est à la base des 
langages d'intelligence artificielle ! 

Pour vous convaincre, voici l'exemple classique des tours de HANOI. 
On imagine 3 piquets, sur le premier (la tour de départ) se trouvent N 
disques de dimensions différentes. Ils sont empilés par ordre de grandeur, 
le plus grand se trouvant en dessous. Le problème consiste à placer ces 
disques sur la troisième tour (la tour d'arrivée) dans le même ordre, en 
les prenant un à un, et en passant par des tours intermédiaires, sans jamais 
placer un disque plus grand sur un plus petit. 


Par exemple, pour N = 3, on a la succession sui- 
vante : de 1 à 3, de 1 à 2, de 3 à 2, de 1 à 3, 
de 2 à 1 , de 2 à 3 et de 1 à 3. 


Graphiquement, 














N'ayez pas peur ! C'est très simple à program- 
mer, car comme on l'a dit, il n'est pas néces- 
saire de savoir comment s'y prendre II! Il suf- 
fit de chercher un cas de base et une relation 
qui y conduit. 

Si la tour de départ ne contenait qu'un seul dis- 
que, nous pourrions résoudre le problème : il 
suffirait de prendre un disque de la tour de 
départ, et de le placer sur la tour d'arrivée... 
voilà notre cas de base. 


Il ne nous reste qu'à exprimer notre problème 
complexe - déplacer N disques - en fonction de 
ce même problème de complexité plus petite 
- déplacer (N - 1 ) disques. 

Pour trouver cette relation, il suffit de se dire 
qu'on sait résoudre le problème de complexité 
plus petite... elle vient alors tout de suite. 
Déplacer N disques de la tour de départ à la tour 
d'arrivée en passant par une tour intermédiaire, 
c'est (si N est plus grand que 1 ), 


(a) en déplacer N - 1 de la tour de départ à la 
tour intermédiaire en passant par la tour 
d'arrivée, 

(b) en déplacer un de la tour de départ à la tour 
d'arriver, 

(c) redéplacer les N - 1 de la tour intermédiaire 
à la tour d'arriver en passant par la tour de 
départ ! 


Graphiquement, pour N =5, 









On peut alors écrire le programme presque 
directement. 

On appelera D le numéro de la tour de départ, 
A celui de la tour d'arriveé, V celui de la tour 
intermédiaire et Q la quantité de disques à 
déplacer. Ces variables seront indicées comme 
le demandent les règles (4) et (5). 





qui sera retourné 




14 FOR K(R) = 1 T0& 

: X(R)=Z(R)-U(R)*SQR .6: 
GOSUB 30: W(R)=Y 
: X(R)=Z(R) + U(R)*SQR . 6: 
GOSUB 30 : W(R)=W(R)+Y 

16 X(R)=Z(R): GOSUB 30:I(R-1 
= I(R-1) + 5*W(R) + 8*Y 
: Z(R)=Z(R) + 2*U(R) 

: N EXT K(R) 

18 l(R)=l(R)/9 : RETURN 

20 A=0,B=4,Q = 1: RETURN 

21 A=0,B = SQRX(1) f Q = 1: 
RETURN 

30 IF R=N LET 

Y = X(2) 3+2*X(1)*X(2): 
RETURN 




-même calcul que tantôt 
Maintenant, on place les 
A, B et Q des Xi en 20+i 


Cas de base et 


32 GOSUB 12 : Y = I(R): RETURN relation entre les intégrales II! 

(sous entendu, on passe R : 
règle (7)) 

Remarque 

Les valeurs placées dans ce programme correspondent au calcul de 

A --sqrt(xi) 

l 2 = I I x 2 3 + 2 X! x 2 dx 2 dx-| 
J 0 J 0 


Le résultat fourni ici est tout à fait correct, vu que nous sommes dans 
le cas où l'algorithme de Gauss s'applique particulièrement bien. (2) 

Il reste encore bien des applications intéressantes, plus compliquées ou 
plus simples... les plus courageux d'entre vous peuvent écrire un pro- 
gramme récursif qui évalue le déterminant d'une matrice N xN. 

Le cas de base est la matrice 1x1. 

La relation des coffacteurs nous donne la relation de récursivité. 

A bientôt, et bon amusement. 

1 1 Cependant, certaines machines refusent un GOTO calculé, comme c'est 
le cas dans le dernier exemple, on remplacera alors le GOTO 1 9 + R de 
la ligne 12 par ON R GOTO 20, 21, 22, 23, 24. 

Enfin, d'autres basic ne supportent pas les boucles FOR-NEXT avec des 
tableaux... il suffit d'en revenir alors à la boucle classique avec un GOTO 
car 

FOR 1 = 1 TO 100:..: NEXT I 
est équivalent à 
1 = 1 

L1 :....: 1 = 1 + 1 

IF < = 100 THEN GOTO L1 

En effet, l'algorithme marche très bien si les dérivées de la fonction que 
l'on intègre sont finies aux bornes d'intégration. 

Frédéric BLONDIAU 




Dans presque tous les livres 
d'initiation au BASIC, il est dit 
que pour faire un bon pro- 
gramme, il faut faire de cha- 
que tâche élémentaire un 
sous-programme. 

C'est donc une notion fonda- 
mentale <|u'il convient de bien 
avoir saine avant de se lancer 

QU'EST CE QU'UN SOUS-PROGRAMME ? 

Vous en utilisez tous, sans même vous en ren- 
dre compte, puisque Ton peut dire en première 
approximation que toute fonction BASIC est un 
sous-programme. 

Ecrivez cette ligne : 

10 : BEEP 1 : PRINT « FIN » 


dans de grandes applications. 
En fait, tous les langages 
informatiques utilisent des 
sous-programmes, le langage 
machine en est même particu- 
lièrement friand et les langa- 
ges utilisant la notion de Pro- 
cédure fonctionnent grâce à 
eux : C, PASCAL, FORTH... 

Comme vous le savez (sinon arrêtez de lire, cet 
article est de trop haut niveau pour vous) cette 
ligne exécute un BEEP puis écrit FIN. Le pro- 
gramme en ROM (mémoire morte) qui se 
charge d'interpréter les mots BASIC en bianire 
(d'où son nom d'interpréteur) pour qu'ils soient 
traités par le microprocesseur considère cha- 


que mot BASIC comme un sous-programme : 
10: BEEP 1: PRINT «FIN» 

EXCUTION AFFICHAGE 
On voit la particularité d'un sous-programme, 
qui est de revenir tout de suite apès l'endroit 
d'où il a été appelé. Près à exécuter l'instruc- 
tion (ou sous-programme) suivante. C'est ce 
que Ton pourrait appeler des sous-programmes 
implicites, en effet vous ne dites pas spécifi- 
quement que vous utilisez un sous-programme 
mais c'est traduit comme tel. 

LES SOUS-PROGRAMMES EXPLICITES 

Quand vous employez l'instruction GOSUB, 
vous définissez une certaine partie de votre pro- 
gramme comme étant un sous-programme. 
Celui-ci se situera de la ligne dont le numéro 
est l'argument du GOSUB jusqu'au Premier 
RETURN trouvé, qui marquera la fin du sous- 
programme, et le retour a l'appel. 

Pour s'y retrouver l'interpréteur BASIC utilise 
une zone de la mémoire pour stocker le numéro 
de la ligne et l'endroit où il se trouve dans cette 
ligne lors de l'appel du sous-programme. Pour 
savoir manier cette pile je vous conseille de 
reprendre votre SHARPENTIER n° 9 page 14 
et de l'examiner. 


ta- 



POURQUOI UTILISER 
UN SOUS-PROGRAMME 

Dans les livres d'initiation, on conseille d'utili- 
ser les sous-programmes pour augmenter la lisi- 
bilité. C'est vrai qu'un programme écrit en uti- 
lisant de nombreux sous-programmes est faci- 
lement compréhensible pour celui qui ne l'a pas 
fait. 

On utilise aussi souvent un sous-programme 
lorsqu'une séquence se répète plusieurs fois 
à l'intérieur d'un programme. On isole alors 
cette sequence en la faisant devenir un sous- 
programme, et à chaque fois que cette sé- 
quence était écrite, on la remplace simplement 
par un GOSUB ce qui se traduit par un gain con- 
sidérable d'octet. 
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LES SOUS-PROGRAMMES IMBRIQUES 

On a vu qu'à partir d'un programme principal 
on pouvait appeler un sous-programme. Mais 
on peut aussi appeler un sous-programme à 
partir d'un autre sous-programme. Dans les 
livres d'initiation on représente les sous- 
programmes par des rectangles qui sont imbri- 
qués mais qui ne doivent jamais se croiser. Ceci 
n'est en fait qu'une approximation car avec 
cette représentation des sous-programmes on 
ne peut exprimer le fait que le sous-programme 
représenté par le rectange plein peut-être 
appelé par les deux sous-programmes dans les- 
quels il se trouve et cela sans qu'il soit besoin 
de le réécrire deux fois. 



ASTUCES SUR LES SOUS-PROGRAMMES 

LE COMMENCER EN COURS 

On peut considérer un sous-programme comme 
étant un tout, mais en fait il est souvent utile 
de le commencer au milieu pour en sauter une 
partie qui ne servirai qu'en certaines occacions. 


2 . 
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GOTO AU LIEU DE GOSUB 

Dans certains cas il est préférable de rempla- 
cer un GOSUB par un GOTO, ce qui fait gagner 
quelques octets. Si vous avez une séquence 
de type : 

GOSUB « LIGNE 1 » : RETURN 

vous pouver sans problème la remplacer par 

une séquence du type : 

GOTO « LIGNE 1 » 

et lorsque l'interpréteur rencontrera le RETURN 


signalant la fin du sous-programme dénommé 
« LIGNE 1 », il ne reviendra pas après le GOTO 
« LIGNE 1 », mais après cette séquence. 

On peut même être plus astucieux encore en 
plaçant le sous-programme « LIGNE 1 » juste 
après la fin du sous-programme où se trouve 
l'appel GOTO « LIGNE 1 » et éliminer celui-ci. 
On se trouve alors dans le cas « LE COMMEN- 
CER EN COURS » 



SOUS-PROGRAMMES AU DEBUT 

Cette bonne habitude nous vient du temps où 
l'on programmait sur PC-1 21 1 . Celui-ci était, 
en effet, connu pour sa lenteur et Ton recher- 
chait par tous les moyens des astuces pour ren- 
dre les programmes un peu moins lents. On 
avait trouvé que l'accès à un sous-programme 
est plus rapide s'il se trouve en tête du pro- 
gramme, et celà s'est avéré toujours vrai avec 
le PC-1 500. 

En fait ceci s'explique tout à fait, puisque quand 
le PC-1 500 recherche où se trouve une ligne, 
il le fait en commençant par le début du 
programme. 

LIEN AVEC LE LM : PSH POP 

Vous n'espériez tout de même pas lire un arti- 
cle entier sur le PC-1 500 sans trouver un mot 
sur le langage machine ! 

Tout ce qui a été dit précédemment est appli- 
cable sans réserve au langage machine en rem- 
plaçant les : 

GOSUB en SJP (Subroutine JumP) 

RETURE en RTN 
GOTO en JMP (JumP) 

Mais on peut faire nettement mieux en langage 
machine, car Ton peut jouer sur la pile où sont 
stockées les adresses de retour. 

Lorsque vous faites un SJP, le microprocesseur 
stocke dans un endroit de la mémoire appelé 
la pile l'endroit de la mémoire où se trouve l'ins- 
truction suivante, et s'en va à l'adresse cor- 
respondant aux paramètres du SJP. Lorsqu'il 
trouve un RTN, il reprend dans la pile le nom- 
bre qui s'y trouve et va à l'adresse y corres- 
pondant. On dit qu'une telle pile est une pile 
LIFO : Last In First Out ou pour les Anglopho- 


bes : dernier rentré premier sorti, ceci s'appli- 
quant bien sûr aux nombres qui y sont stockés. 
Mais lorsque vous êtes dans le sous- 
programme, vous pouvez modifier la pile. Avec 
PSH vous rentrerez des données, comme si 
vous les posiez sur celle préexistantes sans rien 
altérer. Avec POP vous reprendrez ce qu'il y 
a en haut de la Pile. Donc si vous mettez quel- 
que chose sur la pile, il ne faudra pas oublier 
de l'enlever avant d'exécuter le RTN, sinon 
celui-ci prendrai cette donnée pour l'adresse 
d'où il a été appelé, ce qui conduit à des résul- 
tats inattendus. Mais celà peut-être voulu, il 
faut faire très attention à ce que Ton fait. 

Par exemple nous allons stimuler un JMP à une 
adresse se trouvant en U : 

PSH U U se trouve en haut de la pile 
RTN prend la valeur du haut de la pile et se rend 
à cette adresse , on peut de même annuler l'ef- 
fet d'un SPJ par un POP. 

POP X et vous aurez dans X l'adresse où le pro- 
gramme serait allé s'il avait rencontré un RTN. 

Vous pouvez faire : 

POP V Pour ne modifier aucun registre. Le SPJ 
par lequel votre programme est venu à cette 
adresse aura eu le même effet qu'un JMP. 
Vous pouvez combiner ces POP et ces PSH en 
faisant : 

POPV 
PSH U 
RTN 

Vous remplacez alors l'adresse de retour par 
celle se trouvant en U. 

(c) 1985 Marc GIRONDOT 
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BEEP..ZARRE 


Encore une particularité de la 
ROM du PC-1 500 qui n'a pas 
fini de nous étonner. 

C'est à la mise au point du super-CALL que 
cette particularité a été découverte. Ce n'est 
pas grand chose, cela n'a aucun intérêt, mais 
puisque la chose est connue, autant en faire 
profiter tout le monde ! 

Alors qu'un BEEP a toujours besoin d'un para- 
mètre, on peut ne pas lui en mettre si on se 
trouve en BEEP OFF. Inutile n'est-ce pas ! 
10: BEEP ON: BEEP :A=1 
provoque une ERROR 1, mais 
10: BEEP OFF: BEEP :A=1 
marche tout à fait bien. La bogue en ROM est 
à l'adresse C684. 

Pour la corriger, il aurait fallu faire : 

E5D7 : BII (786B), 01 si BEEP OFF, Z est 
baissé 

E5DB : BZR +73 (E650) si BEEP OFF, 
va en E650 

E650 : JMP C684 cherche le : suivant 

C684 : DEC Y cette instruction est de trop 
car dans ce cas là il revient sur le deuxième 
code du mot-clé alors qu'il était bien positionné. 
Mais si les concepteurs avaient voulu corriger 
cette omission, ils auraient utilisé de la 
mémoire, et finalement, ce n'est pas si grave. 

(c) 1986 Marc GIRONDOT 



PROGRAMME « DELETE ZONE » 


N'étant pas initié du LM, j'ai utilisé le pro- 
gramme « NEW » publié dans le SHARPENTIER 
n° 15 page 24 implanté à l'adresse &38C5 
pour une utilisation différente de celle d'origine. 


Ayant l'habitude d'utiliser un certain nombre 
de programmes mergés, le programme ci-joint 
me permet d'effacer très rapidement une zone 
mergées et de conserver les autres zones. La 
ligne 6 prend en compte le dernier programme 
de la zone BASIC et l'élimine simplement en 
changeant les adresses des pointeurs. Faire 
RUN et répondre par la première étiquette de 
la zone à effacer. Bien sûr il faut mettre en 
&38C5 le programme « NEW ». Si vous vou- 
lez le mettre autre part, il faut modifier le CALL 
&38C5 en ligne 7. 

(c) 1 986 Le club et Mr JACOB Patrice 


PROGRAMME « DELETE-ZONE(M) ». 

1 « W » CLEAR : A = PEEK &7865, B = PEEK 
&7866 : ON ERROR GOTO « W » : INPUT 
« Zone-DEL= » ; N$ 

2 IF N$ = «» OR N$ = « W » END 

3 RESTORE N$ : l = 256*(PEEK 

&78BE-1 28) + PEEK &78BF-3, J=l: RES- 
TORE « W » 

4 BEEP 1 : J=J + 3 = PEEK(J + 2) : IF PEEK 
J<> 255THEN4 

5 IF J> STATUTS 2-1 END 

6 IF J= STATUS 2—1 LET 1=1-1 : POKE 
&7867, INTd/256), l-PEEK &7867*256, A, 
B : BEEP 3 : END 

7 J=J + 1 : POKE &7865, INTIJ/256), J- 
PEEK &7865*256 : CALL &38C5, 1 : POKE 
&7865, A, B, : BEEP 3 :END 

Remarque : CALL &38C5 lance le programme 
LM de pseudo NEW, 1. 1= Adresse LM + 1 = 
nouvelle adresse de début de zone BASIC. 



NETTOYAGE EN RAM 


Cette petite routine relogeable est utile lorsque 
l'on veut programmer agréablement à l'aide du 
moniteur SHARP. 


VEJCC, 65 CC 65 X = (7865-7866) 

LDA VI 34 A=0 

SIN X 41 (X)=0X = X + 1-i 

CPI Xh, 70 4C70 Xh = 70 ? 

BZR -05 99 05 non 

RTN 9A 


Pour l'utiliser, CALL (1 er adresse). 

La partie de mémoire comprise entre le début 
du BASIC et la fin de la mémoire sera mise à 0. 

M. BOMBA Xavier 



LA PUISSANCE DES PC 


Pour signifier une puissance de dix dans un cal- 
cul, on utilise la lettre E plutôt que le 1 0 ^habi- 
tuel. Mais attention, le E peut donner des résul- 
tats étranges si on n'y prend garde, pour vous 
en convaincre, essayez : 

1E4.3 ENTER 

Et il s'affiche 1E 43 alors que l'on devrait 
trouver 

10 4.3 = 19952.62315 

De même, un 1 El 234 ne devrait pas exister 
puisque les PC n'acceptent des puissances que 
jusqu'à 99, or il s'affiche : 1E 34. 

Nous pouvons en déduire que si la puissance 
de 10 a plus de deux chiffres, le PC ne prend 
en compte que les deux derniers, en éliminant 
la virgule s'il s'en présente une. 

Je n'ai pas encore pu déterminer où se situe 
la partie de la ROM incriminée, si vous avez des 
information, n'hésitez pas à nous les 
communiquer. 

(c) 1896 Marc GIRONDOT 



NOTE SUR PC BLUES 


Oui, le programme PC-BLUES paru dans le 
SHARPENTIER n° 15 fonctionne bien ! 

En fait, c'était plutôt le programme PLAY qui 
était incrimé. Si vous n'avez pas réussi à le faire 
tourner, c'est peut-être simplement parce que 
vous avez une version de ROM ancienne. Il suf- 
fit alors de remplacer la ligne 190 du listing 4 
par : 

190 IF A< >970 LET 1 = 1 + 1 : GOTO 180 
(c) 1986 Martin RAYROLLE 



PRECISIONS SUR SOFT TEXT 


Voici les dernières astuces trouvées pour uti- 
liser ce logiciel : 

Fl : PEEK &78E4x256+PEEK &78E5-PEEK 
&78E0x256-PEEK &78E1 
F2 : PEEK &78E2x256 + PEEK &78E3-PEEK 
&78E4x256-PEEK &78E5 


SUPER (AU 


Le seul défaut du CALI est de 
ne pouvoir passer que très peu 
de paramètres. Nous allons 
faire mieux ! 

Les concepteurs du PC-1 500 ont eu la bonne 
idée de permettre le passage de paramètres à 
un CALL. Voici les résultats : 

VARIABLE NUMERIQUE 

CALL (&nnnn), v 

avec dans v la valeur &vvvv en 1 6 bits signés, 
(-32768, +32767) 

X = &vvvv Y = &C897 U = &nnnn A = &00 

VARIABLE ALPHANUMERIQUE 

CALL (&nnnn), v$ 

Soit &aaaa l'adresse du premier octet de la 
variable en MEV 

X = &aaaa Y = &C897 U = &nnnn A = Nb max 
de caractères dans v$ 

Remarquez que si vous utilisez des variables 
dimensionnées, il faut le faire avant le CALL, 
ainsi : 

CLEAR 

CALL &40C5,AA 

provoque une erreur 7 car la variable AA n'a 
pas été définie. On fera donc : 

AA=0 

CALL &40C5,AA 

Si on fait seulement un : 

CALL (&nnnn) 


Une pression sur Fl vous donnera la mémoire 
utilisée et sur F2 la mémoire restante. 

Pour ne sauver sur cassette que les codes défi- 
nis selon l'imprimante : 

CSAVE M PEEK &7863x256 -+ 1 096, PEEK 
&7863x256 + 1 235 
Et pour les recharger : 

CLOAD M 

Pour mettre ce programme sur CE-161 et l'y 
laisser continuellement : 

NEW 0 


CLOAD M (comme normalement) 

NEW &3801 

CLOAD (seul le BASIC se chargera) 

Avant utilisation il faudra faire : 

POKE &7864, &40 

que l'on pourra mettre en ligne 5. 

Avant de retirer le module, faire comme indi- 
qué page 19 du n° 17. 

(c) 1986 Marc GIRONDOT 


X = &C86C Y = &C897 U - &nnnn A = &80 
De plus, dans tous les cas, on aura dans la pile : 
&C897 

Adresse du premier octet après le CALL(: ou 
80D) 

&00 

&C455 

Les 00 et C455 sont dûs au traîtement interne 
du CALL. 

Au retour du CALL, si il y a eu passage de para- 
mètre, on peut demander au programme en LM 
de repasser des paramètres au BASIC, on s'ar- 
rangera pour cela à ce le CARRY soit levé 
(SEC). Si numérique : Charge la valeur U dans 
la variable définie, si alphanumérique : charge 
la chaîne de longueur A à l'adresse X dans la 
variable définie. 

MIEUX ENCORE! 

Le principal défaut de cette méthode est de ne 
pouvoir passer qu'une variable, et aucune 
expression algébrique. Nous allons y remédier. 
Voyons tout d'abord dans quel état se trouve 
la machine à l'arrivée sur une routine de mot 
clé : 

X= adresse de la routine 
Y = adresse du premier octet suivant le code 
de la fonction 

U = adresse dans la table suivant l'adresse de 
la routine 

A = ? (semble correspondre au type d'utilisa- 
tion : RUN PRO) 

Dans la pile : 

&00 

&C455 

Maintenant, nous allons berner le système, on 
va lui faire croire qu'un CALL (&nnnn) est en 
fait un seul mot clé : 

On va simuler un BEEP avec un CALL : 

CALL &nnnn : 10 BEEP 10 
Pointeur : 


Position : pile Y 

Il y a peu de différence, et nous allons les 
éliminer : 

Après le CALL &nnnn, il faut faire : 

POP Y dans Y &C897 
POP Y dans Y l'adresse du : 

INC Y se positionne sur le 1 

JMP &E5C1 se branche sur la routine BEEP. 

Faites par exemple : 

NEW &40CE 

POKE &40C5, &FD, &1A, &FD, &1A, &54, 
&BA, &E5, &C1 

10 : CALL &40C5 : ON : CALL &40C5 : 10, 
20, 310 

ce qui correspond à : 

10: BEEP ON : BEEP 10,20,310 
On peut même être encore plus fort en utilisant 
le passage de paramètre pour dire quelle est 
la routine à utiliser : 

POP Y FD IA Y = &C897 inintéressant 
POP Y FD IA pointe sur le : 

CPA VL 36 A=0 si variable numérique 

BZS +03 8B 03 si A=0, bon 

LDI UH, 07 68 07 prépare l'erreur 7 

VEJEO EO erreur 7 

INC Y 54 pointe sur l'octet suivant le : 

STX P FD 5E se branche à l'adresse de la 

var. 

On fera alors : 

NEW &40D3 

POKE &40C5, &FD, &1A, &FD, &1A, &36, 
&8B, 3, &68, 7, &E0, &54, &FD, &5E 

10 : A =&E5C1 -&FFFF-1 : CALL &40C5, 
A: ON: CALL &40C5, A : 10,20,310 
Remarquez la convention de &E5C1 en 1 6 bits 
pour à l'arrivée dans la routine que l'on obtienne 
bien le &E5C1. 

11 ne vous reste plus qu'à exploiter ces nouvel- 
les possibilités et à nous envoyer vos 
découvertes. 

(c) 1986 Marc GIRONDOT 





CLASSEMENT 


Celte routine en LM est desti- 
née à être utilisée immédiate- 
ment dans tous les program- 
mes de gestion de fichiers en 
BASIC. 

En effet, elle simplifie toutes les procédures de 
tris qui sont particulièrement longues à l'exé- 
cution, et gourmandes en mémoire si on veut 
tenir compte de toutes les possibilités ou en 
faire une version un tant soit peu rapide. Notre 
version résout ces problèmes : 

• Le LM permet une bonne rapidité, même si 
la méthode de tri utilisée est la plus rudimen- 
taire (donc la plus facile à programmer en LM !) 

• Elle envisage presque tous les cas. Voyons 
ceux-ci : 

Un fichier est constitué de plusieurs rubriques 
qui sont stockées dans des variables dimen- 
sionnées de noms différents. Bien sûr, ceci est 
dans un cas général, on peut voir certaines 
adaptations selon les permormances recher- 
chées. Donc, si l'on décide de trier ce fichier, 
il faut penser que le tri doit réamménager tou- 
tes les variables. Ainsi, si on gère un agenda 
avec nom et n° de téléphone dans deux vara- 
bles différentes, il faut penser que si on change 
la place d'un nom, il faut faire suivre le n° de 
téléphone sous peine de déranger une personne 
non concernée à la première utilisation. Donc, 
le programme le permet, puisque l'on peut défi- 
nir 5 tableaux de variables en plus de celui sur 
lequel on fait le test. Ce dernier tableau peut 
être bien entendu n'importe lequel. De plus, il 
peut arriver dans certains cas que l'on ne désire 
modifier qu'une certaine partie du tableau. Il 
faudra donc définir une borne inférieure et une 
supérieure. On se servira aussi de cette fonc- 
tion pour définir si les éléments sont stockés 
à partir de l'indice 0 ou 1 . Et bien sûr, il faudra 
aussi définir si le tri doit être croissant ou 
décroissant. 

Pour passer tous ces paramètres, on utilisera 
l'astuce décrite dans l'article SUPER-CALL. La 
syntaxe générale est : CALL & NNC5 : PI, DI, 
OR, TA1 (*), TA2 (*), TA3 (*), TA4 (*), TA5 

n, ta 6 n. 


Les paramètres de TA2 (*) à TA6 (*) peuvent 
être tout ou partie ignoré. Le programme ne 
comprend que les tableaux ayant au maximum 
un nom de 2 caractères. De toute façon les 
autres signes sont ignorés par le PC-1 500 en 
temps normal. De plus, il ne traîte pas les 
tableaux®!*) et@$ (*), ceux-ci ayant une posi- 
tion particulière en MEV système. Voici la signi- 
fication des variables : 

PI : premier indice 
DI : dernier indice 

OR : ordre, si supérieur ou égal à 0, tri crois- 
sant, sinon décroissant. Ou pour dire la même 
chose : si SGN OR=-1 tri décroissant et si SGN 
OR=0 ou = XI tri croissant. 

IMPLANTATION DI LA ROUTINE 

Vous avez maintenant l'habitude du format 
d'impression à utiliser avec le moniteur SHARP. 
La colonne de gauche correspond à l'adresse, 
le code tout à fait à droite est un code de con- 
trôle et les codes entre sont le programme. Il 
est listé pour être placé à l'adresse &C5. Sa 
fin sera alors en &29A. Il est fourni une rou- 
tine de relogement qui ne reloge que le poids 
fort. L'adresse de début sera donc toujours : 
&NNC5. La fin sera logiquement en &N (N + 2) 
9A. Il faudra donc faire un NEW &N (N + 2) 9B 
pour protéger ce programme d'une destruction 
accidentelle. La valeur &NN est donnée par 
l'octet &7863 en faisant PEEK &7863 on 
demande en effet le poids fort du premier octet 
de RAM, et le BASIC commence &C5 octets 
plus loin. 

Faites tout d'abord le NEW adéquate selon 
votre version mémoire. Tapez le programme à 
l'adresse correspondant à l'adresse où il devra 
tourner, puis tapez le programme de reloge- 
ment, RUN puis répondre à la question par 
l'adresse où se trouve le programme. Quelques 
secondes plus tard, 5 bips vous signalent que 
l'opération est terminée. Il ne vous reste plus 
qu'à incorporer cette nouvelle fonction à vos 
programmes. 

ADDITIF 

Le programme refuse les tableaux à deux 
dimensions et affiche une ERROR 1. D'ailleurs, 
quelque soit l'erreur commise, il affichera tou- 
jours ERROR 1, car la programmation en est 
plus simple. Vous pouvez travailler très facile- 
ment sur plus de 5 tableaux en modifiant la 
valeur en &16D pour la version 16 Ko ou 
&N(N + 1 ) 6D pour une autre version. Cet octet 
vaut 5 dans le programme actuel, mais vous 



pouvez mettre une valeur supérieure. Il faut 
simplement savoir que la taille du programme 
augmente de 3 octets par variable supplémen- 
taire. Ainsi, si vous y placez 8, le programme 
aura (8-5)x3 = 9 octets de plus. Il faudra donc 
faire un NEW &29B+ 9 pour une version 1 6 Ko. 

MARC GIRONDOT (c) 1986 M.G. 


OOCü: 

dues 

OOBÙ 

o o n s 
OOEOi 
O O E 8 
O O F O 
O O F 8 
O ÎOO 
0108 
O i 1 O 
O 1 1 8 
O 1 20 
0128 
O 1 30 
0 138 
O 1 40 
014 8 
0 150 
0158 
0 160 
0168 
0 170 
0 17 8 
0 180 
O 1 88 
0 180 
0180 

0 1 AO 

01 AS 
O 1 b O 
O 1 b 8 
O ICO 
O 1 C 8 
0 1 DO 
0108 
O 1 EO 
U 1 ES 
0 1 FO 
O 1 F 8 
0 200 
O 2 O 8 

02 10 
0218 
0220 
02 2 8 
0 2 30 
0 23 8 
0 24 0 
0248 
0250 
0 2 58 
0 260 
02 68 
0 2 70 
U 2 7 8 
0 2 80 
O 2 8 8 
0 2 80 
0 2 8 0 


0 O O O 

1 A 54 
A E O 2 
D O 08 

2 C OF 

8 3 07 
0 1 E 4 
0 1 4 2 

86 FF 
C 2 2C 
8 b 04 
b 8 6 F 
88 05 
A8 C2 
28 48 
A5 78 
8 b 38 
88 32 
02 84 
44 84 
05 2E 
DD AE 
8E 01 
88 1 1 

4 5 2 A 

2 A 8E 
02 83 
00 A 5 
b 5 08 

2 A 34 
SA F8 
0 8 FD 
8 b 1 2 

05 04 
7 A 04 
3F FP 

3 4 8 2 
A 5 O 2 
7 A 1 7 
7 A 16 
02 85 

7 A bE 

B O B 2 
48 02 
44 44 

08 1 A 

18 CB 
15 F 8 
54 54 
08 F B 
18 FD 
4 1 88 

F D 2 A 
A 5 O 2 
0 2 84 

0 2 88 
F B 1 h 
0 0 6E 
00 00 
O o 0 o 


OO 00 
BE 25 

83 C 2 

16 24 

A5 02 
BE 0 5 
A4 bF 
04 AE 
68 0 2 
6 7 55 
b 7 28 
bb 80 
54 2 4 

28 4E 
FB 2 A 
88 O0 
45 A 6 
FD 2 A 
81 26 
2E 64 
64 FD 
0 2 86 
C6 A 5 
E 4 44 
F 8 O 2 
_4Fy F B 
AE 02 
0 2 8 b 

F B C 8 
2 8 1 8 
0 2 OA 
8 8 A 5 
AE 7 A 
AE 7 A 
8E 05 
Oh F D 
08 b 5 
8b b 7 

84 AE 

b 5 DO 
bE DO 
F 7 1 7 

8b 54 

4 A 88 

05 b 7 
A5 02 
50 FD 
0 2 OA 
15 b 7 
C 8 F 8 
SA DF 

06 FB 
88 4 8 
8 7 BD 
O F 0 3 
3 6 8 b 
E 2 O O 
6 8 8 8 
O O O O 
O O O i i 


O O FD 
BO 0 8 
2C lb 
AE 0 2 
8 3 A7 
B O 04 
80 4 A 

O 2 8 5 
6 h 88 
28 5 5 
88 0 2 
2 A 15 
bb 20 
C2 2 A 
A5 78 
84 A 7 
88 35 

44 44 

45 36 

04 2 E 
A8 A 5 
b 7 05 
0 2 86 
FD AS 
OA A4 
2 A F B 

87 E 8 
b 7 88 
1 A A5 
CD 50 
A 5 O 2 
0 2 8 b 
0 7 84 

06 b 5 

5 8 Th 
SA F 8 
10 AE 

88 8 b 

7 A 15 
AE 7 A 
F 8 8E 
A 5 02 
A5 02 
FD A 8 

8 8 88 

87 2 A 
IA FD 
56 15 

8 8 88 
0 2 1 A 

2 A 15 
OA 44 
Eb 0 2 
AE 0 2 
b A Ol 
0 3 b A 
’ 2 O 1 


n o o n 


IA F B 
2 2 24 

DE 18 
84 C 2 
0 2 8 4 
0 2 8E 

02 8b 
Eb 02 
FD A8 
b 7 24 

3 4 56 
b 7 24 
2 A F D 

4 b C 2 
8 A OA 
78 64 
45 26 
45 A 7 
8 8 2 2 
64 46 
0 2 86 
8 8 6 8 
b 7 FF 
45 28 
8 2 FD 
88 A 5 
O 2 8 8 
88 02 

02 87 

A5 02 
88 8 2 
b 7 8.8 

AE 7 A 
DO AE 
bE F 7 

0 2 O A 
78 84 

1 8 AE 

04 AE 
14 A 5 
Qb 5 8 
8 5 bE 
8 6 2 A 
FD 86 
O 2 b 5 
34 28 

8 8 54 
8 2 08 
0 2 b 5 

3 4 8 2 

F 5 4 6 
44 44 
88 0 1 
87 A 7 
8 8 A 5 
OJ 8F 
O 1 3 2 

10 O O 
O O O O 


b 8 
8F 
6 1 
88 
O b 
94 
86 
28 
0 2 
8 A 
FE 
18 
8 F 
A4 
8F 
CA 
3 8 


6 b 
O b 
F 2 
b 7 
3 8 
33 
68 
Ab 


F 5 
EF 


O O 
t 7 
48 


E 2 
4 A 


v e?> t£. fi- s? '©?, '‘So 

\\ù *3 A ?•', iftf 1 66 16 

î«* Jafc as . ni a 6 m m îü îh'vts- w 

■ .. a ;B h t h Y lîl 43B • CE 7 ;;&E b 4 FC , > i !Ü3y il 30 VC lt.eX;ï|çH yY y 

.Y 20Y DhIh F 4 ; .3;j *0 , Il Y ilFié i. ifé ■! yy. Ysai 

,Y: 30 ÉTÉ. 

■V 403 H# r i :■ " : rt: - : &FF : "’ ; 3 v ' 

.y'FçIfopyI-ÏîQy 

v-7û: bee p : ■ ■ : y; y^yy': . 


.C IB 

Ÿ 


ic§â 

INITIATION LH-5801 


Cetle série avait été commen- 
cée avec le numéro 7 du der- 
nier trimestre 83, il y a donc 2 
ans. Mais elle avait commencé 
à un niveau trop élevé et con- 
tinué sur des bases qui ont 
découragé à peu très tout le 
monde. 


Pour ce premier chapitre nous 
n'allons pas encore plonger 
dans l'univers fabuleux et 
quelque peu magique du LM, 
nous n'allons pour l'instant 
qu'explorer le PC et sa mé- 
moire. 


Vous savez qu'un ordinateur est un engin très 
compliqué si on essaye de voir ce qu'il a dans 
le « ventre ». Nous allons donc nous limiter à 
quelques généralités. Tout en haut, il y a le 
microprocesseur, LH-5801 de son prénom, qui 
gère tout. C'est à lui que l'on donne les ordres, 
et qui transmet ces ordres à tout ce qui l'en- 
toure. Il gère tout seul 524 280 informations. 
On peut en effet imaginer la mémoire comme 
une ligne de 524 280 cases qui peuvent, cha- 
cunes séparément, être vides ou pleines. On 
peut même pousser l'analogie plus loin en ima- 
ginant que sur certaines cases on a posé une 
plaque de plexiglas, il est alors impossible d'en 
modifier le contenu. Celà correspond à la 
mémoire morte ou ROM (MEM). Si on peut en 
modifier le contenu, on l'appellera mémoire vive 
ou RAM (MEV). 

Mais pour gérer plus facilement cette succes- 
sion de case, on les regroupe par 8 pour for- 
mer des octets, la case s'appelant un bit. Ne 
confondez pas le byte anglais signifiant octet 
au bit français. 

Donc les bits de numéro 0 à 7 formeront le pre- 
mier octet, les bits 8 à 15, le second et ainsi 
de suite. Notre mp peut donc gérer 
524280/8 = 65535 octets. 

Notez que le fait de regrouper le bits par 8 n'est 
pas universel dans l'univers diversifié des 
micropocesseurs, certains les prennent par 4, 
(montre à quartz) et d'autres par 1 6 ou 32, ordi- 
nateurs professionnels. C'est pourquoi les 
microprocesseurs sont dits 8, 16 ou 32 bits. 
Le LH-5801 est donc un mp 8 bits. Mais il est 
tout de même un peu spécial car il peut en effet 
gérer 8 séries de 524280 cases, soit 


8x65 535 = 52 4280 octets. On appelle Kilo- 
octet ou Ko un ensemble de 1024 octets. Notre 
mp peut donc gérer 524 280/1 024 = 51 2 Ko. 
Les compatibles IBM n'ont qu'à bien se tenir. 



Nous allons voir comment est utilisée toute 
cette mémoire, comment sont stockées les 
informations, et comment les exploiter. 

MODIFIER UNE INFORMATION 

Je vous renvoie à l'article sur les fonctions logi- 
ques des ordinateurs qui devrait se trouver dans 
ce numéro (Il se passera 4 mois entre l'écriture 
de cet article et sa publication, il peut s'en pas- 
ser des choses I) 

Lisez au moins le paragraphe sur la représen- 
tation d'un nombre en binaire, sans quoi, ce 
n'est pas la peine de continuer cette lecture, 
vous allez être décroché. 


Nous revoici ensemble, vous savez à présent 
convertir un nombre de 0 à 255 en une suc- 




cession de 8 bits. On vérifie si la leçon a été 
bien retenu : 

128? 10000000 facile n'est pas, et bien 
continuons. 

PEEKETPOKE 

Nous ne vous ferons pas le classique « et CALL 
et gram », car le CALL n'a pas encore sa place 
ici, on verra dans deux mois. 

Choississez un numéro d'octet, au hasard, ce 
qui vous vient à l'esprit, c'est bon. Si vous avez 
un nombre supérieur à 65535, vous n'avez pas 
le droit de revenir en deuxième semaine, repren- 
nez plutôt du début cette lecture. Vous brûlez 
d'impatience de connaître la valeur des 8 bits 
de cet octet, et bien arrêtez de vous consumer 
et faites : 

PEEK (nombre) ENTER 

Il s'affiche un nombre compris entre 0 et 255, 
il faut alors faire appel à vos souvenirs pour 
convertir ce nombre binaire. Pour ceux qui ont 
la mémoire très courte, voici un programme 
l'effectuant : dans A la valeur 

10 : WAIT O : FOR 1 :7 TO 0 STEP -1 : PRINT 
STR$(A)> =2 I) ; :A = -(2 l)x(A)> = 2 I) : 
N EXT I : WAIT : PRINT 

Vous savez à présent comment lire et exploi- 
ter l'information lue. Pour la modifier, c'est à 
peine plus difficile. Il faut toutefois se rappe- 
ler que certaines cases sont couvertes de plexi- 
glass, il ne sert à rien d'essayer de modifier ces 
valeurs. Nous allons travailler sur l'octet 
numéro 1 6384 car il est toujours en RAM quelle 
que soit votre version de PC- 1500. 

Faites donc pour vous entraîner : 

PEEK 16384 ENTER 

11 s'affiche un chiffre que vous vous empres- 
sez de transformer en binaire. Vous connais- 
sez la position des 8 bits de cet octet. 

Maintenant choisissez la valeur que vous allez 
y mettre, choisissez tout d'abord les valeurs 
des 8 bits, puis faites la conversion en déci- 
mal : par exemple 

01010101 soit 85 en décimal. Pour position- 
ner les 8 bits de l'octet 1 6384 à ces valeurs, 
il suffira de dire que l'octet 1 6384 prend pour 
valeur 85 : 

POKE 16384,85 ENTER 

Et comme précédemment, on vérifie que tout 
c'est bien passé en faisant : 

PEEK 16384 ENTER 
et on lit 85 ! 




LA MEMOIRE 

Il faut maintenant déterminer où se trouve la 
MEV et la MEM. En théorie c'est assez simple, 
si vous pouvez changer la valeur d'un octet, 
il se touve dans une partie de MEV, sinon il se 
trouve dans de la MEM. Je vous épargne cette 
recherche le résultat ayant déjà été publié dans 
le numéro 1 2. Rappelons toutefois que : 
0-32767 zone de la MEV 
et 32768-65535 zone de la MEM. 
Remarquez que la zone n'est pas forcément 
occupée, si vous n'avez aucune extension 
mémoire, la zone 0-32767 sera en grande par- 
tie inutilisée. 

A l'intérieur de ces zones nous en distinguons 
encore d'autres : 0-28671 zone MEV utilisa- 
teur, elle vous appartient, vous pouvez la gérer 
comme bon vous semble 
28672-31743 zone appelée couramment MEV 


LES INDICATEURS 


système. Vous n'avez pas à y toucher lors 
d'une utilisation normale. 

31744-32767 une zone utilisable que sur 
PC-1500A 

Pour la MEM, reportez vous au numéro 12. 

STRUCTURE DE LA MEV SYSTEME 

C'est une partie de la mémoire assez spéciale 
où est consignée la position de la machine à 
tout instant. Si vous êtes en mode RUN, PRO, 
RESERVE, TRON, TROFF, BEEP ON ou OFFJe 
PC le sait en regardant un octet ou un bit pré- 
cis de cette MEV. 

Par exemple, faites : 

BEEP OFF ENTER 
PEEK 30827 ENTER 

Vous obtenez un nombre qui converti en binaire 
donne ceci : 

XXXXXXX1 où X vaut O ou 1 


Faites alors : 

BEEP ON ENTER 
PEEK 30827 ENTER 
et vous obtenez un nombre donnant : 
XXXXXXXO en binaire. Vous vous doutez que 
le PC sait s'il se trouve en mode BEEP ON ou 
OFF en regardant le bit 0 de l'octet 30827. Par 
convention et analogie avec l'écriture en LM, 
on notera (30827) pour désigner la valeur prise 
par l'octet 30827. 

Si vous faites un BEEP 1 , la douce mélodie du 
Buzzer retentit. Maintenant placez le bit 0 de 
(30827) à 1, faites: POKE 30827, PEEK 
30827 OR 1 ENTER 

Pour comprendre le rôle du OR, voir l'article sur 
les fonctions logiques. Faites alors : 

BEEP 1 ENTER 

et bien sûr rien ne se produit car vous venez 
de passer en BEEP OFF. 


choisi en binaire la valeur de l'octet correspon- 
dant à ce que vous voulez allumer, convertis- 
sez le en décimal, en POKEZ. Pour ceux à qui 
la conversion en décimal pose encore dqs pro- 
blèmes, voici une ligne BASIC le faisant : 
10: A = 0 :F0R 1 = 1 TO 8: 

A=A + 2 (8-l)xVAL MID$(A$,I,1) : N EXT I : 
PRINT A 

Faites A$ = « 01010101 » ENTER et RUN 
ENTER, il s'affiche la valeur en décimal, 




bl 

b2 

b3 

b4 

b5 

b6 

b7 

30286 

BUSY 

SHIFT 

71\J 

SMALL 

D 

D 

D 


30287 

DE 

G 

RAD 

■ 



RUN 

DEF 


Vous pouvez donc de la même façon que pour vous trouver. Si le bit prend la valeur 1 , l'indi- 

le BEEP, choisir dans quel MODE vous voulez cateur correspondant est allumé. Après avoir 


L'ECRAN 

Vous le trouvez certainement minuscule, pour- 
tant sachez qu'il est d'une complexité incroya- 
ble. On en arrive même à se demander si le con- 


cepteur qui a choisi cette disposition avait bien 
toute sa tête. 

Un shéma valant mieux qu'un long discours... 


30208-10 

82-30284 

30464 

30540 

30208 

30284 

30464 

30540 


b0 


b0 


b4 


b4 



bl 


bl 


b5 


b5 



b2 


b2 


b6 


b6 



b3 


b3 


b7 


b7 



b0 


b0 


b4 


b4 



bl 


bl 


b5 


b5 



b2 


b2 


b6 


b6 


30209-11 

83-30285’ 

30465 

30541 

30209 

30285 

30465 

30541 

G. CURSOR : 

0 

38 

39 

77 

78 

116 

117 

155 


Faisons tout de suite quelques remarques sur 
ce shéma. A part qu'il est particulièrement 
compliqué, nous pouvons signaler que la par- 
tie supérieure de l'écran est définie par les 


octets de numéro pair et la partie basse par les 
octets de numéro impair. De plus, les bits 3 et 
7 des octets de numéro impair ne sont jamais 
utilisés. Rassurez vous, vous n'aurez jamais à 


utiliser ce shéma, nous avons déjà publié dans 
le numéro 1 1 les routines permettant d'écrire 
ou de dessiner sans avoir à utiliser ce shéma 
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LES VARIABLES FIXES 

Nous n'ajouterons pas grand chose à ce qui a 
été publié dans le numéro 14 sur les routines 
de calcul, et dans le numéro 1 2 sur la position 
en mémoire des variables. Juste ce petit 
résumé sur le codage des nombres décimaux : 
soit N=a.bcdefghij E nm 

OCTET 1 : si nm ^ 0 nm 
si nm < 256-nm 


OCTET 2 : si NO 00 
si N<0 80 
OCTET 3 : ab 
OCTET 4 : cd 
OCTET 5 : ef 
OCTET 6 : gh 
OCTET 7 : ij 
OCTET 8 : 00 

Nous allons arrêter ici cette étude, le prochain 
chapitre prenant un article à lui seul : 


STRUCTURE DE LA MEV UTILISATEUR 
Bien sûr j'attends tous vos commentaires, et 
surtout tous les points à reprendre s'ils n'ont 
pas été clairement expliqués. 

(c) 1986 Marc GIRONDOT 


GALAXY FLY 


Jeu tiré d'une revue Japonaise. 

Tapez le programme grâce au moniteur SHARP, 
la colonne de droite étant celle de la somme 
de contrôle, ou bien si vous ne possédez pas 
ce programme, tapez-le normalement : POKE, 
&4008, &48, &70, &4A, &4E, &58, &41, 
&5A, &EB ENTER 
POKE &40D0, &05, &51,... 

Pour lancer le jeu, faites un CALL &40C8. Votre 
vaisseau apparaît au bas de l'écran, vous le fai- 
tes bouger avec les touches = et>. 

Les vaisseaux à détruire apparaissent par le 
haut de l'écran. Utilisez SPACE pour tirer. 

Comme d'habitude, le but du jeu est de ne pas 
se faire toucher par un projectile quelconque. 
Version : PC-1 500 A ou PC-1 500 + CE - 1 51 
ou CE-155 


40C8 : 48 70 
40D0-.05 51 
40D8SO0 OE 
40E0 ! 48 41 
4QE8 : DC 91 
40F0ÎAE 41 
40F8 ! b5 b5 
4 1 00 s 00 00 
4 1 08 : 3E OO 
4110s OO 3E 
4 1 1 8 : 37 76 
4 1 20 s 56 13 
4128:00 41 
4 1 30 : 7F 7F 
4138:49 49 
4140:00 OO 
4148:41 41 
4150:00 00 
4158:39 1F 
4160:7F 49 
4168:00 00 
4170:39 6F 
4178:00 00 
4 1 80 : 3E 00 
4188:02 3E 
4190:00 OO 
4198:00 02 
4 1 AO : 00 00 
4 1 A8 sOl 00 
4 1 bO : 00 00 
4 1 b8 : EA 00 
4 1 CO : FF OO 


4 A 4E 58 41 
b5 10 41 05 
bE 50 88 bE 
4 A BO b5 OO 
05 b5 03 AE 
D5 b 5 E7 AE 
AE 41 C3 bA 
02 3E 00 OO 
00 00 OO OO 
7F 63 41 41 
ÎO 00 OO 40 
13 56 7C 78 
7F 7F 46 OC 
41 00 00 41 
49 5D 41 63 

00 OO 00 OO 
41 41 41 7F 

01 07 1F 39 
07 01 00 OO 
49 49 5D 41 
41 7F 7F 49 
46 40 00 OO 
00 00 OO 00 
00 3E 2A 3 A 
00 3E 22 3E 
00 00 00 OO 
3E 00 07 08 
OO 00 00 00 
00 OO 00 OO 
OO OO 00 00 
OO OO 00 OO 
AF 62 12 00 


5A Eb 36 
1E b5 44 
43 40 FD 
41 4E 07 
41 D2 13 
41 C2 41 
50 EO 3E 
3E 2A E9 
00 00 87 
41 51 85 
78 7C 4A 

40 OO 67 
OC 46 4C 
7F 7F EF 
00 00 55 
3E 7F 3E 
3E OO 8b 
60 60 bl 

41 7F b9 
63 00 FC 
09 19 53 
OO 00 DF 
OO 02 bb 
00 06 A 7 
OO OO A 7 
OO OO DI 
00 01 29 
OO OO El 
OO OO EA 
00 OO Fl 
OO 00 E3 
00 OO 23 


4 1 C8 : 06 
41 DO: 01 
41 D8: 15 
4 1 EO : 04 
4 1 E8 : 4D 
41FO: 43 
41F8: 20 
4200: 3E 
4208: 2E 
4210: 2 A 
4218: 3E 
4220:00 
4228: 53 
4230: 43 
4238:41 
4240:01 
4248:00 
4250: 18 
4258: 18 
4260: IC 
4268: OO 
4270: 19 
4278: Ob 
4280: 19 
4288:00 
4290: 15 
4298: 00 
42A0: OO 
42A8: 40 
42b0 : OA 
42b8 : 45 
42C0: 06 
42C8: 06 
42D0: 06 
42D8 : 06 
42E0 : 06 
42E8: 05 
42F0 : 05 
42F8 : 05 
4300:48 
4308: 68 
4310:41 
4318: 9C 
4320: 9C 
4328: 4E 
4330:48 
4338: 9A 
4340: b5 
4348: 9C 
4350 s b5 
4358: 78 
4360 : bE 
4368:41 
4370:41 
4378: 24 
4380: DD 
4388: b 7 
4390:24 
4398: 9 A 
43A0 : b5 
43A8 : 1 A 
43b0: 41 
43b8 s 17 
43C0 : b5 
43C8 : 1 A 
43D0: 41 
43D8 : 17 
43E0: 58 
43E8 : 43 
43F0: 41 
43F8: 43 
4400: A5 
4408:04 
4410:42 
4418: 9A 
4420: 58 
4428: 9A 
4430:58 
4438:43 
4440:08 
4448: OA 
4450:58 
4458:43 
4460:8b 
4468:41 
4470:43 
4478: 8b 
4480: bE 
4488:43 
4490: bE 
4498:05 
44A0: 83 
44A8 : 44 
44b0: 58 
44b8: 43 
44C0: 83 


12 00 02 
67 OO 22 
06 2D 00 
72 4D 2E 
2E 47 41 
4F 52 45 
33 20 3E 
22 3E 02 
2 A 2A 3E 
3A 3E 2 A 
2 A 3E 2E 
48 49 54 
20 52 41 
4C 45 41 
44 59 21 
Ob 07 00 
00 OO OO 
OC 06 13 
OO IC 06 
OO 12 19 

00 OO 03 
OC 06 03 
1F Ob 1E 

09 19 09 
02 IC 02 
OA 04 lb 

11 OA 00 
OO 40 40 
OO 03 Ol 

02 09 FF 
OO 40 20 

12 00 02 

10 04 02 
12 08 03 
ÎO lO 03 
ÎO 20 03 
12 20 03 
12 40 03 
ÎO 40 03 

70 4 A 00 
41 6 A 4E 
9C 25 Fl 

41 55 Fl 
65 b9 FO 
4E 99 20 

71 4 A 00 
9 A 9A 9A 
00 48 41 
99 05 9A 
00 48 41 
99 05 9A 
43 78 55 
55 41 55 
55 41 55 
F 9 bl 9F 

40 40 40 
OO 99 Ob 
F 9 b3 10 
9A 9A 9A 
OO AE 41 
05 D5 52 
A5 41 9D 
9A 9 A 9A 
OO AE 41 
05 D9 52 
A5 41 9D 
9A 9A 9A 

42 5A 50 
90 IA b5 
9E 04 F 9 
AO 9A 9A 

41 DA b9 
5A 50 8E 
bE 43 60 
9A 9A 9 A 

42 5 A 62 
9A 9 A 9A 
42 5A 6b 
90 D5 F9 
AE 41 9E 
bE 43 CO 

42 5A 6b 
90 D5 F 9 
10 IA b5 
9E 04 F9 
AO 9 A A5 

03 bE 47 

43 90 b 7 
EO 8E 1E 

44 00 8E 
bE 44 20 
05 bE 44 
30 9A 9 A 
42 5 A 74 
90 b7 E8 
IA D* 7 IA 


04 Ob 90 

01 03 00 

08 14 05 

47 4D 2E 
43 3C 20 
20 54 4F 
00 00 OO 
3E OO 3 A 
OE 08 3E 
3 A 06 02 
2A 3E OO 
20 4D 49 
54 49 4F 

52 00 52 
00 03 01 
04 05 07 
OO OO OO 
OF 13 06 
13 OF 13 
OD 07 03 
06 OC 19 
OC 1E Ob 
OC OC IA 
IA OC 00 
OO 00 OO 
04 OA 15 
11 00 OA 
60 60 60 

06 02 FF 

53 54 41 
10 50 30 

04 Ob 90 

05 Ob 90 

04 09 90 

05 Ob 90 
05 OD 90 

05 ÎO 90 

07 12 90 

07 14 90 
58 41 5A 
15 b9 OF 
b9 FO Ab 
b9 OF AE 
Ab 41 9C 
4C 71 8b 
9E 2 A 9 A 
9A 9 A 9A 
4A 00 41 
9A 9 A 9A 
4A 00 41 
9A 9 A 9A 
41 55 41 

41 55 41 
41 9A 9 A 

48 41 4 A 

40 40 40 
9A 9A 9A 
58 41 IA 
9A 9 A 9A 
9D A5 41 
5E 00 99 
DD b 7 09 
9A 9A 9 A 
9D A5 41 
5E OO 99 
DD b 7 09 
9A 9 A 9A 
bE 43 60 

06 F9 ÎO 
bl 08 OA 

9 A 9 A 9 A 

10 b 7 10 

02 5 A 59 
9A 9A 9A 
9A 9 A 9 A 
bE 43 60 
9A 9A 9 A 
bE 43 60 
b9 OF F9 

04 F9 bl 
9A 9A 9 A 
bE 43 60 
b9 OF b 7 
OA F9 10 
bl 08 OA 

41 C4 b 7 
E3 9A 9A 

05 83 05 
b 7 EO 83 
15 b 7 EA 
8E OC b 7 
50 8E 03 
9A 9A 9A 
bE 43 60 
83 17 b 7 
b5 05 F9 


OO C2 
OO 9F 
61 E3 
47 lb 
53 1E 
50 6D 
OO EA 
2A 84 
2E 8C 
3E 9E 
OO 96 
53 50 

OO 5C 
45 70 

05 82 
FF A4 
OO 8A 
OC 03 

06 OF 

OO OO 
1E F 6 
1F 34 
09 48 

OO 2C 
OO EA 
OO 33 
11 21 

40 C2 

08 3D 

47 35 

70 9F 
OO bb 
O O C6 
00 D2 
OO E3 
OO FD 
00 09 

OO 35 
OO 3D 
OO 38 
AE 37 

41 Db 

41 35 

41 D6 
06 OE 
9A 72 

9 A 4b 

4E 9A 
9A C7 
4E AA 
9A b3 
55 9D 
55 03 

9 A EE 
Ob 06 
DF FF 
9A 8E 
15 7b 
9A Ab 
9E A8 
06 2E 
91 E5 
9A 48 
9E C8 
06 52 

91 05 

9A 68 
bE 86 
AE 8A 
bE 90 
9A bA 
89 1D 
58 95 

9A 5F 
9 A 2C 

9A b5 
9 A 3C 

bE F 2 
bl 8F 

08 CF 
9A bF 
bE 12 

09 C5 

AE CF 
bE 09 
OO 92 
9A OO 
bE 57 
05 bA 
83 9D 
F 4 48 

bE OD 
9A FC 
bE 7b 
08 C7 

10 53 


44C8: AE 
44D0 : bE 
44D8 : 7D 
44E0: 58 
44E8: 43 
44F0: 83 
44F8 : 8E 
4500:43 
4508: FD 
4510:04 
4518:43 
4520: A5 
4528:43 
4530:50 
4538:08 
4540: AE 
4548:41 
4550: bE 
4558: b7 
4560: 6E 
4568:02 
4570: 6E 
4578: 03 
4580: 6E 
4588:04 
4590: 6E 
4598: 41 
45A0: 00 
45A8 : bE 
45bO: bE 
45b8 : 9 A 
45C0 : 4 A 
45C8 : 9A 
45D0: CO 
45D8 : 5A 
4 5 E O : 5 A 
45E8 : 89 
45F0 : A5 
45F8 : 12 
4600: AE 
4608: 9A 
4610: A5 
4618:03 
4620: 83 
4628:83 
4630: b3 
4638:89 
4640: 02 
4648: DF 
4650: A5 
4658:01 
4660: 83 
4668:83 
4670: OA 
4678: 8E 
4680: 83 
4688: b3 
4690: 89 
4698:02 
46 AO : 48 
46A8 : 05 
46b0 : 89 
46b8 : b 7 
46C0: OF 
46C8: EO 
46D0: 40 
46D8 : 9A 
46E0 : 58 
46E8: 99 
46F0: bE 
46F8: 41 
4700: OC 
4708 : b7 
4710: 9 A 
4718:03 
4720: DD 
4728: DF 
4730:41 
4738: 9A 
4740: AE 
4748:20 
4750:0F 
4758: 9A 
4760:48 
4768:00 
4770: DO 
4778: 4D 
4780: 65 
4788:40 
4790:89 
4798:40 
47 AO : IA 
47A8: bb 
47bO : 8E 
47b8 : 9A 
47C0 : 5A 


41 9E 04 
43 AO 8E 
bE 43 60 

42 5 A 86 
90 b 7 F9 
28 b 7 EE 

02 b5 02 
78 bE 43 
83 04 b5 
AE 41 9E 
CO 9A 9A 
41 CO b 7 
7C 5A OO 
5E 09 91 
OA 58 42 
41 9D 05 
9D DD b 7 

43 50 68 
01 89 03 
bO 91 OD 
89 03 bE 
bO 91 OE 
89 03 bE 
bO 91 OE 
89 03 bE 
bO 91 OE 
C5 b 7 OO 
A5 41 C6 
49 ÎO 8E 
43 00 9A 
9A 9 A 9 A 
95 A5 41 
4 A 02 A5 
9 A 58 04 
OO 56 5C 

00 68 41 

01 50 6E 
41 C3 18 
AE 41 C3 
41 C2 A3 
9A 9A 9 A 
41 C4 b 7 
bE 45 EO 
2A bE 45 
22 bE 45 
AO OA 48 
12 b5 03 
OA b5 01 
AE 41 C4 
41 C7 b7 
bE 45 EO 
3b bE 45 
10 A5 41 
48 41 05 
18 bE 45 
lb bE 45 
AO OA 48 
Ob b5 01 
OA b5 E9 

41 4 A AO 
b 7 02 89 
1E A5 41 

03 89 14 
bE 45 FO 
93 OA b 7 

40 60 60 
9 A 9A 9A 

42 5A b9 
06 15 AE 
E4 2C b 7 
CO b 7 OF 
b 7 3D 89 
OO 8b 04 
b 7 OA 81 
F 9 b3 30 
58 41 5A 
b7 00 99 
55 41 55 
9 A 9A 9 A 

41 9D Fl 
b5 00 41 
bE 47 20 
9A 9A 9A 
41 4 A DI 
8C OE 4A 
bE 47 80 
20 9 A 9A 
FD C8 bE 
40 FD SA 
03 bE 47 
b5 00 bE 
bb OF b 7 
AO b 7 AO 
0114 9 A 
9 A 9A 9A 
00 b 7 OA 


F 9 bl 08 

07 58 42 
9A 9A 9A 
bE 43 60 
83 19 b 7 
83 04 b5 
AE 41 9E 
AO 8E 13 

02 8E 02 
bE 43 78 
9A 9A 9A 
10 83 28 

05 b9 1F 
09 04 F9 
5A Al b5 
lb 50 41 
09 91 OF 
41 6 A AO 
bE 44 EO 
6A AO 25 
44 bO 60 
6A AO 25 
44 80 60 
6A AO 25 

49 90 60 
bE 45 20 
8b 03 bE 
b 7 00 8b 

03 bE 45 
9A 9A 9 A 
9A 9A 9A 
D4 bE 47 
41 C4 bE 
8E 02 58 
OO 99 05 
6A AO 65 
bO 91 09 
A5 41 C2 
IA 12 92 
41 DA 9 A 
9A 9A 9A 
OO 8b 35 
14 A 7 41 
FO A7 41 
FO b9 OE 
41 05 b 7 
OE b5 ÎO 
OE A5 41 
9A 9 A 9A 
00 89 46 
14 A7 41 
FO A 7 41 
CO F9 b3 
b 7 OO 89 
FO A 7 41 
FO b9 OF 
41 05 b 7 
OE b5 10 
OE 9A 9A 
68 41 6 A 
Ob 25 b 7 
CE 2E 8E 
25 b 7 05 
Ab 41 CA 

06 91 OE 
4E bO 91 
9 A 9 A 9 A 

50 DF b 7 
70 4E 9A 
OC 89 OA 
83 12 DD 
Ob A5 41 
DF AE 41 

04 b5 20 
bE 4b ÎO 
FD 54 54 

08 48 41 
41 9 A 9 A 
9A 9A 9A 
b9 OF bE 
A5 41 9D 
9A 9A 9 A 
9A 9A 9A 
F9 8C 43 
7b 68 41 
bE 43 00 
9A 9A 9A 
47 AO bE 
IA 65 5E 
AO bE 47 
47 20 9 A 
OF 89 Ob 
89 05 b5 
9 A 9 A 9A 
9A 9A 9A 
81 06 F9 


OA 59 

5A 3E 

9A 62 

bE bD 

F 4 F 6 

04 C4 

bE CE 

b 7 F9 

b5 CD 

bE 1D 

9A FC 

bE 3b 

41 A4 

bl 74 

00 D9 

A5 67 

9A 42 

25 bE 

60 vr 

b 7 47 

60 AD 

b 7 58 

60 8E 

b 7 68 

60 b4 

A5 5A 

49 2F 

05 D8 

C9 61 

9A F8 

9 A CD 

CO 

47 rt2 

02 b 5 

9 A 61 

06 9D 

9A 59 

1 A b 8 

DD 9C 

9A E9 

9 A 1E 

4 A Cl 

C8 08 

C9 b 7 

F 9 C6 

OO 18 

F 9 9 D 

C4 OO 

9A 88 

4 A 13 

Cb 49 

CC Ob 

AO 33 

02 90 

CD OC 

F9 18 

00 70 

F9 EC 

9A 64 

bO 1 C 

08 24 

18 25 

89 bF 

b 7 75 

2E 15 

30 15 

9A EE 

OO b9 

9 A 82 

A5 FF 

8E 05 

CO 81 

CO 23 

8E 9A 

9A Fl 

54 30 

55 84 

9A b2 

9 A 4F 

47 DI 

b9 El 

9A 33 

9 A 6F 

b5 C8 

6 A 21 

bE Cb 

9A C8 

47 9b 

00 b3 

40 4D 

9A 2D 

14 39 

AA 8E 

9 A 9C 

9 A CF 

bl 53 



47CSS09 50 9E OA AE 41 9D 14 bO 

4?DO!b7 OO 89 02 b5 OA 48 41 Al 

47D8:bE 47 20 40 A5 41 9D bE C5 

47EOÏ47 20 9A 68 42 6A 36 4A bC 

4 7 E © : 30 bE 4b 30 bE 43 OO 9A 33 

47FO s b5 OO AE 41 9D 48 41 4 h 4b 

47F 8 : 00 05 IA b5 7F Fb ÎO 41 DE 

4800: 4E 75 91 Ob bE 43 00 bE 66 

4808: 4A 34 A5 41 9D DD b7 10 F5 

4810:91 20 b5 FF AE 4 1 CO bE 2A 

4818:48 4A b5 OO FD C8 bE 4D 77 

4820:40 FD 8A DD b7 60 91 OC CO 

4828: A5 41 D2 DF AE 41 D2 b7 7F 

4830:00 8b 16 bE 46 EO b5 OO b2 

4838: AE 41 CO bE 45 50 bE 44 84 

4840:73 bE 4A 30 b5 CO AE 41 97 

4848: C? 9A b5 OO AE 41 C5 AE 08 

4850:41 C6 bE 43 40 bE 45 C9 AC 

4858: bE 47 6b bE 45 CO 9A 9A 07 

4860 s b7 03 89 24 A5 41 D3 DD A5 

4868: AE 41 D3 b5 04 OE 04 F9 36 

4870 : b3 lO OA 05 IA b5 F8 OE 5F 

4878: 14 b? EO 83 04 b5 04 8E 39 

4880:02 b5 08 bE 47 60 8E 37 bl 

4888: b7 02 89 33 b5 04 OE 04 10 

4890 : F9 b3 ÎO OA b5 F8 OE bE 17 

4898:45 FO b7 40 83 04 b5 10 58 

48 AO : 8E 12 b7 80 83 04 b5 15 10 

48A8 : 8E OA b7 DO 83 04 b5 30 7b 

48bO:8E 02 b5 50 AE 41 D8 bE 12 

48b8 : 47 60 b5 90 AE 41 C6 9A 3b 

48CO : bE E4 2C b7 20 8b 05 AE Eb 

48C8 : 4 1 Cl 8E 2b A5 41 Cl b7 29 

48DO s 20 8b 24 b5 20 AE 41 Cl 6C 

48D8 : A5 41 C5 b7 OO 89 18 A5 C8 
48EO : 4 1 CO F9 b3 AO OA 48 41 08 

48E8 : 05 b7 OO 8b 05 bE 48 60 E2 

48FO : 8E 05 b5 FD AE 41 C5 bE EF 

48F8 : 45 FO 9A 9A 9A 9A 9A 9A 11 

4900: A5 41 CO bE 43 7C 04 F9 69 

4908: b3 04 OA b5 OE Ob OE 9A 88 

4910:48 41 4A OO b9 OC b7 OC b4 

4918:89 09 b5 OO 41 4E Ob 99 Db 

4920: 05 QE OC A5 41 D8 bE 47 Cb 

4928:40 b5 00 41 bE 47 20 9A 66 

4930 * 9 A 9 A 9A 9A 9A 9A 9A 9A 49 

4938: 9A A5 41 CO F9 b3 AO OA 17 

4 9 4 O : F 9 b3 ÎO IA 48 41 58 41 81 

4948:05 b7 01 89 OA 15 b7 F9 A6 

4950:81 13 bE 47 FO 8E 38 b7 9F 

4958:03 89 OA 15 b7 F4 81 05 7D 

4960: bE 47 FO SE 2A 4E AO 8b CF 

4968:17 42 52 05 b7 03 89 OA AE 

4970: 15 b7 FA 81 05 bE 47 FO FA 

4978: 8E 15 40 50 4E AF 8b OF 8b 

4980:40 50 05 b? 03 89 08 15 bE 

4988: b7 FA 81 03 bE 47 FO 9A 95 

4990: bE 43 90 b7 FD 83 04 5A FF 

4998:8F 8E 02 5A 98 58 42 bE 4A 

49 AO : 43 60 9A 9A 9A 9A 9A 9A 28 

49A8 * 9A 9A 9A 9A 9A 9A 9A 9A Cl 

49bO : 48 41 4A AO 58 41 5A bO OF 

49b8 s 05 b 7 OO 8b 08 15 DD 1E 60 

4 9 C O : b 7 OO 89 Ol OE 50 40 4E 36 

49C8 : bO 91 13 48 41 4A C5 05 02 

4 9 D O : b 7 OO 8b Ol DD 41 4E C8 90 

49D8 : 9 1 Ob 4A DA 05 DD 43 05 Ob 

49E0 : b3 OO OE 9A 9A 9A 9A 9A EC 

49E8 : 9A 9A 9A 9A 9A 9A 9A 9A Ol 

49FO : A5 41 D9 b9 03 b7 02 89 F6 

4 9F 8 : 2C A5 41 DA b7 00 89 25 92 

4 AOO : 4 A 02 bE 45 EO 14 b7 00 44 

4 A08 : 89 lb bE 45 FO b9 OE F9 A9 

4 A 1 0 : b3 AO OA 48 41 05 b7 OO FC 

4 A 1 8 : 89 Ob b5 02 OE b5 10 F9 79 

4 A20 : 02 OA b5 Ol OE 9A 9A 9A 08 

4 A28 : 9 A 9A 9A 9A 9A 9A 9A 9A 42 

4 A30 : b5 FF 8E 06 b5 20 8E 02 27 

4 A38 : b5 30 AE 41 Db 5A OO 52 DD 
4 A 4 0 : 5 E OO 99 05 bE E4 2C AE 02 

4 A48 : 4 1 Cl b7 05 8b Ob A5 41 CC 

4 A50 : Db DF AE 41 Db b7 00 99 6E 

4 A58 : IC 9A 9A 9A 9A 9A 9A 9A F4 

4 A60 : bE 48 CO bE 45 50 bE 49 CA 
4 A68 : 39 bE 49 bO bE 46 AO bE 04 

4 A70 : 49 FO bE 46 50 bE 46 10 5b 

4 A78 : bE 45 D6 9A 9A 9A 9A 9A 9D 

4 A80 : bE 4A 60 bE 4A 60 bE 4A A2 

4 ASS : 60 bE 46 FO A5 41 Cl b7 84 

4 A90 : 05 8b 21 A5 41 D2 b7 OO FA 

4 A98 s 89 05 bA 4E 40 8E 15 A5 OO 

4 A AO : 4 1 C4 b7 OO 89 OC 4A 03 88 

4 AAS : bE 45 EO 5E OO 89 03 bE 7D 

4 AbO : 50 48 9E 34 9A 9A 9A 9A CC 

4 Ab8 : A5 41 D4 DD AE 41 D4 FD 59 

4 ACO s C8 DF b9 07 DD IA b5 08 25 

4 AC8 s 4A b8 FD CA 52 5E OO 99 24 

4 ADO : 07 48 42 58 41 5A C8 45 Ab 

4AD8--51 5E DO 91 06 FD 8A b7 76 
4AEQ : 09 81 07 A5 41 CC D9 AE F4 

4 AE8 : 4 1 CC b5 OO AE 41 D3 b5 6b 

4 AFO : 50 AE 41 C4 48 41 4A AO bO 

4 AFS : b5 OO 41 4E CO 91 05 bE 9A 

4bOG : 48 4A bE 48 36 9A 9A 9A E7 

4b08 : 9A 9A 9A 9A 9A 9A 9A 9A 23 
4b 1 0 : F9 bl 1E 2A 58 FC 5A 9b 96 

4b 1 8 : 54 54 54 54 54 62 6E OO D7 

4b20 : 99 OA 48 41 55 41 55 41 C3 

4b28 : 55 41 55 41 55 41 9A 9A 69 

4b30 : 65 b7 00 8b OA FD AS bE 8F 

4b38 : 4b 10 FD 2A 40 9E OF 9A 8C 

4b40 : bE 43 40 4A 16 b5 2D bE CC 
4b48 : 4b 10 4A 4C b5 2D bE 4b 6F 

4b5Q : 1 0 4A 82 b5 2D bE 4b 10 72 

4b58 : 4 A OO 68 41 6A DC bE 47 El 

4b6û : 80 b5 23 FD CA 6E E2 91 Ab 

4b68 : Ob 4A 1E b5 OO AE 41 9D 67 
4b70 : 65 FD A8 bE 4b 10 FD 2A 05 

4b78 : 40 A5 41 9D DD b7 03 91 AE 

4b80 : 1 4 b5 24 FD CA 6E Eb 91 69 

4b88 : 1E bE 43 OO 9A 9A 9A 9A 5A 

4b9G : FD 98 AS 41 D7 OA b5 27 13 

4b98 : bE 4b 10 bE 43 00 bE E4 9F 

4bA0 : 2C b 7 00 99 07 b5 20 AE Fl 

4bA8 : 4 1 D6 bE E4 2C AE 41 Cl 88 

4bb0 : b7 45 8b 69 b7 20 8b 54 Al 

4bb8 : b7 OC 89 IC A5 41 D6 DD 04 

4bCQ : b7 5b 81 04 b5 20 8E 2E 33 

4bC8 : b7 21 89 04 b5 2E 8E 26 OF 

4bD0 s b7 2F 89 22 b5 41 8E 1E 4E 


4bD8 : b7 3D 89 2E A5 41 D6 DF 69 

4bE0 : b7 40 89 04 b5 2E 8E OE 2E 

4bE8 : b7 2D 89 04 b5 20 8E 06 OD 

4bF0 : b7 20 83 02 b5 5A AE 41 95 

4bF8 : D6 FD C8 A5 41 D7 OA FD A2 

4COO : 8A bE 4b 10 bE 43 OO bE AE 

4C08 : 4A 34 9E 62 FD IA A5 41 CF 

4C 1 0 : D6 51 A5 41 D7 F9 b3 06 F2 

4C 1 8 : AE 41 D7 8E 02 FD IA 9A 6b 

4C20 : 48 41 FD 98 b5 5F 51 51 40 

4C28 : 1 E bE 4b 40 FD IA bE 4b Fb 

4C30 : 90 A5 41 Cl b7 45 8b IA 54 

4 C 3 8 : b E 4b 90 A5 41 Cl b7 45 CO 

4C40 : 8b 10 bE 4b 90 A5 41 Cl 67 

4C48 : b7 45 8b 06 bE 4A 30 bE 17 

4C50 : 4A 30 9A 9A 9A 9A 9A 9A b2 

4C58 : 9A 9A 9A 9A 9A 9A 9A 9A 74 

4C60 : 48 41 FD 5A 45 FD C8 45 Db 

4C68 : FD C8 45 51 05 1E FD 8A b9 

4C70 : 43 FD SA 41 40 40 40 4E D5 

4C78 : E4 89 Ol 40 FD 5A 45 FD Ob 

4C80 : C8 45 FD C8 45 FD C8 45 ED 

4C88 : 5 1 45 51 05 1E FD 8A 43 A8 

4C90: FD 8A 43 FD 8A OE 9A 9A 6F 

4C9S : 9A 9A 9A 9A 9A 9A 9A 9A b4 

4C AO : 6A 00 48 41 FD 5A 50 50 D6 

4CA8 : 05 17 81 08 89 08 40 50 bA 

4 C b 0 : 05 17 83 02 6A FF 9A 9A 3A 

4Cb8 : 9A 9A 9A 9A 9A 9A 9A 9A D4 
4CCQ s A5 41 DO A7 41 EO 81 4A 55 

4 C C 8 s 89 OA A5 41 DI A7 41 El 27 

4CD0 : 8 1 40 8b 3E A5 41 DI AE Ob 

4CD8 : 4 1 El A5 41 DO AE 41 EO Cb 

4 C E 0 : 4 A DE bE 4C AO 6E FF 8b F6 

4CE8 : 06 5A E8 b5 8A 8E 1D 4A bO 

4CF0 : DE bE 4C 60 4A DC bE 4C b4 

4CF8 : AO 6E FF 8b 06 5A E5 b5 D6 

4D00 : 54 8E 09 4A DC bE 4C 60 C8 

4D08 s 5A E2 b5 1E AE 41 D7 bE E8 

4D 1 O : 4C 20 9A 9A 9A 9A 9A 9A 65 

4D 1 8 : 9A 9A 9A 9A 9A 9A 9A 9A 35 

4D20 : 58 41 5A D5 A5 41 DO 17 02 

4D28 : 8 1 13 b5 03 F9 9C 1E A5 19 

4D30 : 41 D2 b7 06 83 07 DD AE 62 

4D38 : 4 1 D2 bE 46 EO 9A 9A 9A 4A 

4D40 : bE 45 50 bE 49 bO 48 41 20 

4D48 s 4A AO 68 41 6A bO 05 b7 FE 

4 D 5 0 : 02 89 OE 25 b7 08 81 19 b4 

4D58 : b7 EO 83 15 b5 EO 2E 8E 25 

4D60 : 1 0 b 7 03 89 OC 25 b7 05 ED 

4D68 : 8 1 07 b7 bO 83 03 b5 bO 8F 

4D70 : 2E 40 40 60 60 4E bO 91 bA 
4D78 : 2b bE 45 D2 9A 9A 9A 9A 2D 

4D80 : 5 A OO b7 OA 81 06 F9 bl 19 

4D88 : 09 50 9E OA FD C8 14 b7 66 

4D90 : OO 89 02 b5 OA bE 47 11 3D 

4D98 : 40 FD 8A bE 47 11 9A 9A F6 

4D AO : bE 43 40 68 42 6A 21 4A AD 

4DA8 : ÎO bE 4b 30 A5 41 D3 5A 51 

4DbO : 00 b7, 08 81 06 F9 bl 07 F4 

4Db8 : 50 9E OA FD C8 14 4A 6A 8A 

4DC0 : bE 47 11 40 FD 8A b7 02 A3 

4DC8 : 8 1 06 DD b7 07 81 Ol DD 96 

4DD0 : bE 47 11 4A 7A b5 25 bE 8F 

4DD8 : 4b 10 bE 43 OO bE 4A 30 b9 

4DEO : bE 4A 30 9A 9A 9A 9A 9A 67 

4DE8 : DD 2A 58 50 5A EC b5 OO DF 

4DF0 : FD C8 54 FD 8A DD b7 OA 7b 

4DF8 : 9 1 OA 62 6E OO 99 11 48 A2 

4EÜÛ : 4 1 b5 OO FD C8 55 41 FD 9C 

4EQ8 : 8A DD b7 OA 91 Ob 9A 9A 4E 

4E 1 0 : 65 b7 FF 8b OC FD A8 bE 73 

4E 1 8 : 4D ES FD 2A 40 40 F9 9E D9 

4E2Q: 1 1 9 A 9A 9A 9A 9A 9A 9A b5 

4E28 : 48 41 4A 11 A5 41 9E IA F8 

4E30 : 05 D5 52 5E OO 99 06 41 E8 

4E38 : 4E 75 91 10 9A 9A 9A 9A 52 

4E40 : b5 07 AE 41 9E 4A 11 68 9A 

4E48 : 42 6A AA bE 4E ÎO 4A 46 98 

4E50 : 68 42 6A AF bE 4E ÎO A5 22 

4E58 : 4 1 9E DF AE 41 9E b7 00 A8 

4E60: 8b Ob bE 4E 28 bE 43 OO 79 

4E68 : bE 4A 34 9E 28 bE 43 OO b9 

4 E 7 O : b E 4A 30 bE 4A 30 bE 4A 36 

4E7S : 30 bE 4C CO A5 41 Eb AE 3F 

4E80 : 70 4E A5 41 EC AE 70 4F Cb 

4E88 : 9A 9A 9A 9A 9A 9A 9A 9A A6 
4E90 : 48 41 4A 00 b5 00 41 4E F5 

4E98 : 50 91 05 9A 9A 9A 9A 9A CE 

4EA0 : b5 00 FD C8 A5 41 9D b9 A4 

4E A8 : 0 1 b7 OO 89 04 5A 6E 8E 91 

4 E b 0 : 02 5A 7b 58 51 b5 00 FD 30 

4Eb8 : C8 55 4C 41 81 01 OE 44 84 

4 E C O : F D 8A DD b7 OD 91 10 FD D4 

4EC8 : 8A DD b7 05 91 2C 9A 9A 2A 

4ED0 : b5 00 FD C8 b5 OO 41 FD 8b 

4ED8 : 8A DD b7 OC 91 OC 9A 9A 21 

4EE0 : FD 88 bE 4E DO FD OA FD 93 

4EE8 : 88 58 51 5A 88 55 41 5E 3D 

4 E F 0 : 95 91 06 bE 43 OO bE 4A 73 


4EF8 : 38 FD OA FD 88 58 51 5A OD 
4FOO : 95 55 41 5E A2 91 06 bE CF 
4F 08*43 OO bE 4A 34 FD OA bE 9b 
4 T 1 n : 4 F DO bE 43 00 bE 4A 38 bE 
4F 1 8 : 9A 9A 9A 9A 9A 9A 9A 9A 37 
4F20 : FD A8 b5 08 F9 20 2A b5 C9 
4F2S : 7F 6E OO 8b 04 D9 62 9E CC 
4F30 : 08 48 41 4A 58 FD 88 FD 34 
4F38 : C8 09 41 FD 8A 4E 67 91 66 
4F40 : OA FD OA FD 2A 58 51 5A CA 
4F 48 : A2 FD A8 55 6E 00 8b 04 30 
4F50 : D5 62 9E 08 Ob 41 FD 2A EF 
4F58 : 5E bl 91 13 9A 9A 9A 9A C2 
4F 60 s b5 07 FD C8 2A bE 4F 20 87 
4F68 : bE 43 OO bE 4A 34 FD SA 7b 
4F70 : DF b7 FF 99 13 9A 9A 9A CE 
4F78 : 48 41 4A 58 b5 OO 41 4E 36 
4F80 : 67 91 05 9A 9A 9A 9A 9A CE 
4F88 : FD C8 FD 88 bE 4E EO FD OA 
4F 90 : OA 40 40 40 40 FD 8A bE 2E 
4F 98 : 4b ÎO 40 40 40 40 9A 9A 76 
4F AO : b5 01 FD C8 48 41 4A OO 3D 
4F A8 : 05 D9 41 4E 75 91 07 bE 2F 
4FbO : 43 OO bE 4A 34 FD 8A DD E2 
4Fb8 : b7 07 91 IA 9A 9A 9A 9A D8 
4FC0 : b5 00 FD C8 bE 4F 78 A5 b3 
4FC8 : 4 1 D4 DD 4A 5A bE 4D 80 38 
4FD0 : FD 8A FD C8 2A bE 4F 20 C2 
4FD8 : bE 43 OO bE 4A 34 FD 8A Fb 
4FEO : DD b7 08 91 23 9 h 9A 9A 4D 
4FE8 : bE 4F 60 48 40 4A CO b5 Eb 

4 F F O : O O AE 41 9D FD 88 bE 4E 5C 
4FF8 : 90 FD OA FD 88 bE 4E AO OF 
5000: bE 43 00 bE 4A 38 FD OA 98 
5008:44 44 44 44 A5 41 9D DD C8 
50 1 0 : AE 41 9D b7 15 91 23 bE 2A 
5018: 4A 38 48 41 4A OF 58 42 66 
5020: 5A b4 55 FD 98 bE 4F 88 FD 
5028: FD 88 bE 43 00 bE 4A 38 3E 
5030: FD OA FD IA 5E b9 91 16 5C 
5038: bE 4F CO bE 4A 30 bE 4A 95 
5040:38 bE 4F AO 9A 9A 9A 9A DD 
5048: bE 43 50 bE 45 C9 68 42 5F 
5050: 6A b4 4A 18 bE 4b 30 A5 FE 
5058:41 D4 4A 3C bE 4D 80 68 36 
5060:42 6A 30 04 F9 b3 OA OA 50 
5068: bE 4b 30 bE 43 OO bE 4A FA 
5070:30 bE 4D AO bE 43 40 bE 9A 
5078:47 60 bE 4F E8 bE 4A b8 24 
5080: 9A 9A 9A 9A 9A 9A 9A 9A AO 
5088: bE 43 40 68 42 6A 3D 4A b4 
5090:12 bE 4E 10 bE 43 00 bE CD 
5098: 4A 30 bE 4A 30 bE 43 40 Db 
50 AO : 68 51 6A bF 4A 06 bE 4b 2b 
50AS : 30 bE 43 OO bE 4A 30 bE 1F 
50b0 : 43 40 68 41 6A ED 4A 20 ED 
50b8 : bE 4b 30 bE 43 OO bE 4A 4A 
50C0 : 30 bE 43 40 bE 4b 40 bE 88 
50C8 : 4 A 30 bE 4A 30 bE 43 40 Ob 
50D0 : 68 51 6A bl 4A 20 bE 4b 67 
50D8 : 30 bE 43 OO bE 4A 30 9A 2b 

5 O E O : b E 4A b8 bA 4A 80 OO 00 74 
50E8 : OO OO OO 00 00 00 OO OO 38 
5 O F 0 : 00 00 00 00 OO 00 00 OO 40 
50F8 : 00 00 OO OO 00 OO OO OO 48 
5100:40 78 7C 56 13 13 56 7C D3 
5108:78 40 41 7F 7F 49 49 49 2b 
5 1 1 0 : 5 D 41 63 OO 3E 7F 63 4 1 C3 
5118:41 41 51 37 76 ÎO 41 7F b9 
5120:7F 49 09 09 1D 01 03 OO 6C 
5128:41 7F 7F 41 40 40 40 40 F9 
5130:60 00 41 7F 7F 46 OC OC 7E 
5138:46 7F 7F 41 01 03 07 4D 66 
5140:78 78 4D 07 03 01 3E 7F 96 
5148:41 41 41 41 41 7F 3E OO 9b 
5150:41 7F 7F 49 09 19 39 6F F3 
5158:46 40 Ol 07 1F 39 60 60 4F 
5160:39 1F 07 Ol 41 41 63 36 2C 
5168: IC IC 36 63 41 41 4C 5E b6 
5170:3b lb 2F lb 3b 5E 4C 22 68 
5178: 7C 02 OO 2C 5E 3F lb 2F 5A 
5180: lb 3F 5E 2C 11 3E Ol OO 05 
5188:00 OO 49 49 2A OO 63 OO F8 
51 9 0 : 2 A 49 49 OO OO OO 00 49 E6 
5198:49 00 OO 41 OO 00 49 49 05 
5 1 A O : O O OO 10 38 7C 34 1E 17 1E 
5 1 A8 : 3F 75 3F 17 1E 34 7C 38 09 
5 1 b 0 : 10 53 20 54 20 41 20 47 AO 
5 1 b8 : 20 45 20 20 20 31 OO 66 65 
5 ICO :6F 72 20 50 43 2D 31 35 38 
5 1 C8 : 30 30 20 20 20 62 79 20 D4 
5 1 DO : 4D 2E 54 41 4E 4A 49 00 12 
5 1 D8 : OO OO OO 00 OO OO 00 00 29 
5 1 EO : 4D 41 53 41 48 49 4b 4F 7E 
5 1 E8 : 20 20 20 54 41 4E 4A 49 OF 
5 1 FO : 20 31 39 38 32 2E 31 31 C5 
5 1 F 8 : O O OO OO 00 00 00 OO OO 49 
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A PROPOS DE 
L'ASSEMBLEUR 


MAD (Moniteur Assembleur 
Desassembleur) a été publié 
dans le SHARPENTIER N° 10, 
sa notice comportant quelques 
imprécisions. 


Voici les dernières découvertes concernant ce 
logiciel : 

Pour obtenir effectivement la fonction ATP et 
non AT : 

POKE &54A3, &50 

Pour que SHIFT K affiche bien BII et non A( + : 

POKE &557F, &4A, &C0 

POKE&55BB, &4B, &12 

Pour que LDX Y et LDX U aient bien leur code : 

POKE &54D5, &18 

POKE &54D9, &59 

POKE &54DA, &28 

POKE &54DE, &55 

Pour que la fonction Q nnnn fonctionne 
correctement : 

POKE &5940, &55, &F0 
POKE &55F0, &BE, &56, &DA, &FD, &5E 
Et enfin quelques précisions sur le mode 
d'emploi : 

= ENTER correspond à donc le code FD 
On a la virgule par un appui sur le point. 

Un appui sur une touche du mode réserve cor- 
respond à une lettre de l'alphabet hexadécimal. 
Pour obtenir les doubles fonctions sur ces tou- 
ches, se servir de la touche SHIFT et MODE. 

Le paramètre d'une instruction de branchement 
relatif est l'adresse. Les nombres 16 bits doi- 
vent être écris en hexadécimal sans le signe &. 

Il faut laisser un espace entre la lettre définis- 
sant la fonction et le nombre. Il faut toujours 
appuyer deux fois sur ENTER pour valider. 

On sort d'une fonction par deux appuis sur 
ENTER et du programme par deux appuis sur 
OFF lorsque l'on est au menu. 

© 1986 Le club, Mr CANILLAC H„ Marc 

Girondot 


ASTUCES 




Suite à l'article sur les conversions 
REC < = > POL, voici deux astuces de nos plus 
attentifs lecteurs. 

Les Topographes utilisent quotidiennement 
cette fonction mais avec des conventions géo- 
métriques différentes (v. fig. 1). Nous travail- 
lons en Grades et comptons les angles comme 
indiqué sur la fig. 1. 

Les formules utilisées (stockées en RSV) sont : 
D:D = SÛR (X*X+Y*Y) à 
V: ACS (Y/D) * SGN (X + 1E-4) +400* 
(X< 0) à 

Il suffit donc en mode RUN de taper 
X = 100-50 ENTER 
Y- 100- 50 ENTER 

puis SHIFT D la distance s'affiche : 
70.71067812 m 

SHIFT V le gisement s'affiche : 50 gd 
On peut bien sûr adapter ces formules dans un 
programme, l'opération inverse étant (non pro- 
grammable en RSV sur 1251) : 

X=X0+D* SIN V ; Y=Y0+D* COS V 

Clément GOXE. 


4oa tÜ 




Dans l'article du N° 16 on préconise pour le 
calcul de l'angle Thêta d'utiliser un diagramme 
puisque les ATN de 1/1, -1/1, — 1 /— 1 , 1/-1 
donnent 4 angles différents et que si X = 0, mal- 
gré le Y/X, il faut obtenir un résultat. 


En particulier dans un calcul astronomique cou- 
rant : l'azimut d'un astre, il faut trouver une 
solution. 

L'azimut est donné par : 

A=ATN ((SIN (angle horaire))/(COS (angle 
horaire)* SINÜatitude observateur)- TAN 
(déclinaison de l'astre)* COS (latitude obser- 
vateur))) avec aménagement de signes possi- 
bles, suivant l'origine choisie. 

Ainsi j'ai vu un jour un calcul effectué sans tenir 
compte du quart de cercle valable, et qui don- 
nait pour azimut d'une planète une direction 
voisine du pôle nord !!!.. 

Dans ce calcul, le numérateur et le dénomina- 
teur de la fraction ne sont certes pas des lon- 
gueurs d'abcisses et d'ordonnées, mais le cal- 
cul reste similaire à : ATN (Y/X). 

Je vous indique ci-après la partie du pgm qui 
permet suivant les signes dè X et de Y, de cal- 
culer Thêta (le calcul de R et la conversion 
inverse sont simples). 

Ex: 

X = 2, Y = 1 A = 26.56 deg 
X = 2, Y = -1 A = 333.43 
X = - 2, Y = 1 A = 1 53.43 
X= -2, Y= -1 A = 206.56 
X =0, Y = 3 A=90 
X=0, Y= -4 A = 270 
Une autre astuce concernant les 1251/55/45 
mais pouvant être étendue à toute la gamme, 
permet d'exécuter des pgms sans taper DEF 
(à partir d'un pgm principal) pour des menus. 
Les pgms doivent être identifiés par des éti- 
quettes se référant aux 1 8 touches utilisables 
par DEF. 

10 : POKE & F83C, PEEK & F83C OR 1 

P. BURC KLE 


880: W C M s 1NPUT ''X=*5X: 
IMPUT Y 

810: IF X=0 AND Y>=0 THEN 
LET A=90: GOTO 880 
320: IF X=0 THEN LET A=2? 

0: GOTO 880 
830: A= ATN (Y/X) 

840: IF A<0 GOTO 860 


84ü):ir- fKW ijU l U SbM 
850: IF X<0 THEN LET A=A+ 
180: GOTO 888 
855: GOTO 880 

860: IF X>0 THEN LET A=A+ 
360: GOTO 880 
870: A=A+180 
880: PRINT A 


SYSTEME 

ETS0US-P6MS 



Pour contenter les possesseurs 
de PC 1450 et PC 2500, voici 
une extension de ce qui a déjà 
été publié pour l'ensemble des 
PCs ESR-H. Nous voilà donc à 
jour. La prochaine fois, nous 
débuterons une nouvelle série 
sans oublier personne. 

J.F.V. 


DEFINITION 

PC 1450 

PC 2500 

START BASIC(PDP) 

5F01> 5F02 

6D91 j 6D92 

END BASIC (PFP) 

5F03> 5F04 

6D93> 6D94 

UARPTR CPDU) 

5F07) 5F08 

6D97 j 6D98 

START (RSU-l) 


6DE5 > 6DE6 

79 JP n. m 

5F59 

6DE9 

i n 

5F5A 

6DEA 

1 m 

5F5B 

6DEB 

N a.9 WAIT n 

5 F 13 

6DA3 

f ! o9 P. -LP. 

5F12 

6DA2 

UARIABLES FIXES 

5C30 a 5CFF 

6C50 o 6D1F 

RSU 


5D20 a 6D6F 



DEFINITION 

PC 1350 

PC 2500 


DATAPTR 

5F22 ) 5F23 

6DB2 > 6DB3 


PQR-NEXTPTR Pf 

5F2B 

6DBB 


GOSUB p TR Pf 

5F2C 

6DBC 


InPut Buf fer- Ptr- 

5F2A 

6DBA 

Key Code DEF 

5F31 

6DC1 

Key Code Buffet 

5F57 

/ 

ÜSÏNG 1 

5F39 i 

6DC9 

. # 

5F3A 

SDCA 


5F 3 B ' 6DCB 


& P 5F3C ~T 6DCC 

US ING 2 ; 5F44 a 5F4? r 6DD4 g 6DD? 

GOSU B Stack 1 5FAC a 5FBF i 7090 g 7063 

PQR-NEXT Stock ! 5E06 a 5E5F ; "6 F06 g 6F5F 


St~rûiÔ9~ Buf fer- ' 5E60 a 5EAF : 6F60 a 6FAF 


I nPut 

Buf fer- 

: 5EB0 

a 5EFF ! 

6FB0 

a 6FFF 

RND 

Buffet 

7098 

a 709F ! 

7298 

a 729F 


9ns ai e r- Nemo^y i 5FF8 a 5FFF i"~70A8 a 70AF 


sous-PGn Ln 

PC 1450 

PC 2500 

LCD ON 

05A0 

052E 

LCD OFF 

059C 

052A 

STX : BA— >X 

029A 

02A8 

DSTX : BA-1 — >X 

02A3 

02BD 

STY : BA- — >Y 

0295 

02A3 

DSTY ; BA-1-->Y 

02AB 

02DB 

BA— >CP+1»P) 

0296 

02A4 

nUXY : Y — >X 

1A14 

1497 

NUYX : X— >Y 

1A0F 

1492 

PUSH X 

121C 

1140 

POP X 

1227 j 

114B 

OUT C > A ! 05A2 ! 

0530 i 


SOUS-PGN LN 

PC 1450 

PC 2500 

0 — > Xr-e9 

0132 

0168 

0 — > Yr-e9 

0126 

015C 

0 — > Zr-e9 

012C 

0162 

Xr-e9 <-> Yr-e9 

0224 

0235 

Xr-e9 --> Y^e9 

01E7 

01F8 

Xr-e9 — > Zr-e9 

0204 

0215 

Xre 9 — > W^e9 

0210 

0221 

Yr-e9 — > Xr-e9 

01CB 01DC i 

Yr-e9 — > Zre9 

01F8 1 0209 i 

Yr-e9 — > Wr-e9 

01B1 01C2 

, Zr-e9 — > Xr-e9 

01F3 0204 

: ujr.e9 — > Xr-e9 

01D9 ; 01EA 


Wr-e9 — > Yr-e 9 : 01BD ; 01CE 


INmAllON AU LM ESR-H (4*| 


Amis lecteurs, bonjour ! La fois 
précédente, nous avons vu 

J u'un programme avait besoin 
e variables pour fonctionner. 
Cela est vrai dans tous les langa- 
ges évolués comme Basic, Pas- 
cal ou Forth. Essayez donc 
d'écrire un programme en 
Basic, sans aucune variables. 
Votre programme ne pourra pas 
faire grand chose. En effet, les 
variables perméttent de stocker 
des résultats, d'effectuer des 
calculs, de conserver des infor- 
mations etc. C'est encore plus 


vrai en Langage Machine où les 
registres tiennent lieu de varia- 
bles. A ce titre, nous avons cons- 
taté que le registre le plus usité 
était A, l'accumulateur, par qui 
passe la majorité des calculs ou 
traitements. En résumé, les 
variables sont appelées regis- 
tres. C'est dans ces registres que 
nous garderons des informa- 
tions ou des données pour de 
futurs calculs, ou que nous effec- 
tuerons certains traitements 
simples. 


Pour être clair, rappelons qu'il existe des regis- 
tres sur 7, 8 ou 16 bits. Par conséquent les 
valeurs maximales qu'ils pourront contenir 
seront différentes : &7F, &FF, ou &FFFF. A ce 
titre, nous avons parlé de, l'affectation de 
valeur à ces mêmes registres par les instruc- 
tions de type Un : LIA &80 correspond en basic 
à A = &80 etc. 

Voyons maintenant le mnémonique LIDP : 
LIDP nm : code &10 Load Immédiate valeur 
dans registre DP DP : registre 16 bits,nm : 
valeur sur 1 6 bits décomposée en deux octets. 
nm 1 -* DP où 0< = nm < = 65535 
On charge donc DP avec une valeur sur 1 6 bits 
qui est généralement une adresse 
Ex : LIDP &6915 donne en code, 3 octets : 
&10&69&15 

Nous voyons que la valeur sur 16 bits s'écrit 
en code machine dans l'ordre logique Poids 
Fort, Poids faible. 

Le mnémonique LIDL est très proche du 
précédent : 

LIDL n : code &1 1 Load Immédiate valeur dans 
Low order byte de DP (soit dans le poids fai- 
ble de DP) N : est cette fois un octet sur 8 bits. 
n«DP1 où 0< = n < =255 
Cette instruction est pratique et économique, 
puisqu'elle permet de ne s'adresser qu'au poids 
faible de DP. Il est bien entendu que le poids 
Fort ne varie pas avec cette instruction, et qu'il 



est égal au poids Fort n de la dernière instruc- 
tion LIDP nm. (ou de la dernière instruction 
modifiant DP comme IX ou DYS etc.) 

Ex : LIDP &6915 donne &10 &69 &1 5 et DP 
vaut &6915 puis quelques instructions plus 
tard : LIDL &F1 donne &11 &F1 et DP vaut 
&69F1. On note souvent de la manière sui- 
vante : LIDP &6915 DP—&6915 


LIDL &F1 DP1-&F1 soitDP-&69F1 
On peut aussi mettre la flèche dans l'autre 
sens, c'est une affaire de goût : &691 5« DP. 
En bref, le programme suivant charge &691 5 
dans DP, attentd deux cyles, puis charge la 
valeur &69F1 dans ce même registre : 

Adresse Code Mnémonique Opérande Commentaire 

&6900 &10&69&15 LIDP &6915 &6915- DP 

66903 &4D NOPW 2 cycles wait 

66904 &11 LIDL &F1 &F1- DPI 

&6906 &37 RTN On revient 

LIDL est très pratique à condition d'être sûr, 
du Poids Fort de DP. Celà demande une cer- 
taine prudence quant à son emploi. Hormis l'ef- 
fet décrit, LIDP et LIDL n'affectent aucun autre 
registre que DP et ne modifie pas les flags C 
et Z. 

Nous avons déjà vu le mnémonique LIP n qui 
affecte au registre d'index de pile P, la valeur 
n sur 7 bits : en effet la valeur maximale sur 
7 bits est, je le rappelle, &7F et la pile va jusqu'à 


&5F puisqu'elle comporte 96 octets. On pour- 
rait considérer l'octet &5F comme un registre, 
mais nous verrons qu'au delà de &3F, nous 
n'avons plus qu'une zone mémoire pour la pile 
et les ports E/S. 

En clair LIP n donne n« P et P peut être chargé 
sans limitation, et adresser tous les registres 
ou octets de la ram interne de 96 octets. 

Par contre l'instruction LP 1 fait la même opé- 
ration mais en un seul octet (au lieu de 2 pour 
LIP et n) et sur un champ réduit. Nous allons 
pouvoir, grâce à LP 1, charger P avec une 
valeur entre 0 et &3F. 

LP 1 Load la valeur 1 dans le registre P 

1 : valeur sur 6 bits 

H P où 0< = 1 < = &3F 
Cette instruction est là pour gagner du temps, 
et de la mémoire et permet d'adresser par P les 
registres de la pile. Ces registres (et ce n'est 
pas un hasard) vont de 0 (I) à &3F. La valeur 

2 correspond à A, 3 à B etc. 

Comme cette instruction fait sur un octet ce 
que sait faire LIP n sur deux octets, la valeur 
1 n'apparaît pas explicitement. Le code &80 cor- 
respond à l'instruction LP &00, &A0 donne LP 
&20, comme &BF donne LP&3F. On gagne 
donc un octet par rapport à LIP n, ainsi que 2 
cyles d'exécution. 


En résumé : 




&80 

LP &00 

= &12&00 

LIP &00 

&00~ P 

&81 

LP &01 

= &12&01 

LIP &01 

&01~ P 

&81 

LP &01 

= &12&01 

LIP &01 

&01~ P 

&81 

LP &01 

= &12&01 

LIP &01 

&01~ P 

&BF 

LP &3F 

= &12&3F 

LIP &3F 

&3F~ P 


Evidemment, ça fait double emploi, mais c'est 
tellement pratique. 

Nous avons passé en revue toutes les affec- 
tations de valeur pour tous les registres cou- 
rants : en effet, certains registres ne peuvent 
pas être chargé par une valeur dite immédiate. 
Il faut passer par l'accu A. C'est un chargement 
indirect par opposition au chargement direct de 
valeurs explicites. Nous verrons cette partie 
importante un peu plus tard (si vous êtes 
sage I). N'ayez crainte, nous y arrivons à 
grands pas. Le mnémonique LIA n permet de 
charger l'accu A avec une valeur explicite, mais 
il y a d'autres façons de charger A. Avec par 
exemple, le contenu de certains registres. LDr 
est une instruction de ce type, elle place dans 
A la valeur contenue dans le registre r : 

LDr Load le contenu du registre r dans l'accu 
A où r est un registre 7 bits d'index de ram 
interne 

r« A r est P, Q ou R. 

LDP : code &30 P« P 
LDQ : code 8.21 (H A 



LDR : code &22 R~ A 

Seul le registre A est affecté, ni le registre r ni 

aucun autre, ou les flags ne sont modifiés. 

L'opération inverse est possible, elle consiste 

à placer dans P, Q ou R, la valeur contenue dans 

A. Ceci avec l'instruction de mnémonique STr : 

STr STore le contenu de l'accu A dans le 

registre r où r est un registre 7 bits d'index. 

A« r r est P, Q ou R 

STP : code &30 A» P 

STQ :code &31 A« Q 

STR : code &32 A« R 

Ici seul r est affecté. 

Nous voyons donc, qu'au travers de A on peut 
charger d'autres registres ou bien récupérer une 
valeur contenue dans un registre précis. Car, 
la puissance des chargements indirectes ne 
s'arrête pas aux seuls registres 7 bits P, Q ou 
R. Tous les registres ou plus généralement, 
tous les octets de la ram interne, c'est-à-dire 
chaque octet indexé de 0 à &5F, peuvent 
envoyer leur contenu dans A. Il suffit d'adres- 
ser le registre ou le port E/S ou un octet de la 
pile, dont l'adresse varie de 0 à &5F dans la 
ram interne de 96 octets, par P. Et ce au moyen 
de l'instruction LP 1, déjà vue pour les regis- 
tres de 0 à &3F, ou par LIP n pour l'ensemble 
des octets de la ram interne. Vous allez voir, 
ce n'est pas si compliqué que ça en a l'air. On 
veut charger dans A le contenu du registre K. 
On fait pointer P sur K, en lui affectant la valeur 
8 qui est l'adresse du registre K dans la ram 
interne. K est le 9 e octet à partir du début qui 
commence à 0 par le registre 1, puis 1 donne 
J, 2 donne A etc. Mais ne nous égarons pas. 
L'instruction LP &08 nous permet d'adresser 
K au moyen de P (LIP &08 convient aussi). Si 
on avait voulu adresser J on aurait fait LP &01 
et pour adresser le port FO : LIP &5E. Mainte- 
nant, P pointe sur le registre adéquat, soit K. 
On veut placer le contenu de K dans A, nous 
allons utiliser une nouvelle instruction : LDM. 
LDM : code &59 LoaD le contenu de l'adresse 
pointée par P dans A, M signifie (P) ; ce qui est 
adressé par P. 

(P)« A les parenthèses indique que l'on prend 
le contenu de P. 

La séquence : &88 LP &08 
&59 LDM 

8.08 m P pointe sur K 

(PH A soit K« A 

place dans A le contenu de K. 

Par contre, l'opération inverse n'est pas pos- 
sible directement. Nous verrons la prochaine 
fois comment faire, grâce à un échange de 
valeurs entre A et un registre pointé par P. Or 



dans le cas de LDM, seul A est affecté, tandis 
que lors d'échange de registres, le registre de 
départ et celui d'arrivée sont modifiés. Les ins- 
truction vues aujourd'hui ne touchent le regis- 
tre d'arivée et seulement celui là. 

Pour finir, il reste un registre dont le contenu 
(tout comme P, Q ou R) peut être placé dans 
A ou vice et versa. Ce registre est le seul regis- 
tre d'adresse qui nous reste à voir, j'ai nommé 
DP. Les adresses au contraire de P (par ex) sont 
sur 1 6 bits et font référence à la ram externe : 
P adresse la ram interne sur 7 bits, est-il besoin 
de le rappeler ? 

Nous allons placer le contenu de DP, noté (DP), 
dans A. Pour les mnémoniques quand on parle 
de (DP), on écrit D, tout comme on écrit M 
quand on parle de (P). 

LDD : code &57 LoaD le contenu du registre 
d'adresse DP dans l'accu A 
D signifie (DP) ; ce qui est adressé par DP. 
(DPH A 

L'opération inverse se nomme STD : 

STD : code &52 STore le contenu de l'accu A 
dans l'adresse pointé par DP. 

A « (DP) 

On place donc le contenu de A dans (DP). 
Par exemple : 

LIA &09 &09m A 
UDP 8.69158.6915m DP 
STD A« (DP) soit 8.09 m &691 5 
Ensuite la séquence : 

LIDL &16 & 6916 m DP 

LDD (DPH A 

place dans A, la valeur contenue dans l'adresse 

8.6916. On peut connaitre cette valeur par un 

PEEK 8.6916, sous BASIC. 

Les instructions vues aujourd'hui, n'affectent 
pas les flags C et Z. Nous verrons, lors de notre 
prochaine rencontre les instructions qui permet- 
tent d'incrémenter (ou de décrémenter) cer- 
tains registres ; c'es-à-dire rajouter 1 . Dans cer- 
tains cas les flags peuvent être affectés. Mais, 
nous pouvons être satisfait, nous savons quand 
même effectuer des chargements directs et 
indirects de registres. Nous verrons aussi, 
avant les INC et les DEC, deux instructions 
d'échanges élémentaires : EXAM et EXAB. 

Puis deux instructions qui chargent (DP) par (P) 
et vice et versa : MVMD et MVDM. Mais ne 
déflorons tout de suite, ce qui sera, je l'espère 
une 5 e leçons appréciées de tous. 

Bon LM I! 

Jean-François VIGNAUD. 


NAVIGATION AS1KO 


Ce programme est une version 
simplifiée du programme de novi- 


II ne prend en compte que le soleil, et ne donne 
que la méthode de la droite de hauteur. Les cal- 


aation astronomique publié dans 
le Sharpentier de décembre 1 984. 


culs ont été débarrassés de différents effets 
de faible importance. Malgré ces simplifications 


la précision reste tout a fait honorable : l'erreur 
maximum sur le calcul du point astronomique 
ne dépasse pas 0,5'. 

Profitons de l'occasion pour donner des expres- 
sions plus exactes pour le programme de 
décembre 1 984 : 

06 : Q= 074.0298 

43 : K = 1 33 - 0.053* T 

46 : G = H/24 - P + Z/B + (Q-A + X) 

R-0.000005*SIN (R*(T-5)/29.53)| 

G. VINCENT 


05 

J = 31 , M= 12 , N = 80 

31/12/1980 

06 

1 = - 1462 

Nb jours/1985,00 

09 

W = - 4 

décalage horaire (Antilles) 

10 

H = 16.2416 , S =17.02 

16h 24min 16s , 17deg 02’ 

11 


mètres 

12 


bord inférieur 

15 

H = 20.40444 , T = -1461.149815 


20 

S = 16.9865 

-[{ ) = dépression horizon 

21 

Z = 0.0536 

réfraction 0 degC (deg.) 

22 



23 

S = 16.9367 

0.93* Z : réfraction 20 degC 

40 

Obliquité écliptique , Excentricité , année sidérale 

41 

T périgée 1985 , longitude Périgée 85 

, temps sidéral MOYEN 1985,0 

42 

X = -1442.2150 

mouvement moyen soleil 

43 

U =-1442.2527 

anomalie excentrique (KEPLER) 

44 

V = - 2.2906 

anomalie Vraie 

45 

Z = - 0.0560 L = - 79.6641 

précession , Longitude soleil 

46 

A = - 78.7570 

Ascension droite (deg.) 

47 

D = -23.0404 

Déclinaison (deg.) 

48 

Y = - 2.870890 

temps sidéral MOYEN (tours) 

49 

G = 125.2365 

AHvo ou GHA (deg.) 

50 

S = 17.2104 

Sextant corrigé (deg.) 

100 

Y = 13.5000 X = 61.0400 

point estimé (deg ’ ”) 

101 

U = 64.1699 

angle horaire local (deg.) 

102 

Z = 17.2019 

hauteur astronomique (deg.) 

103 

A = 60.1204 

Azimut (deg.) 

104 

A = 240.1204 K = 0.512 

quadrant, 0 < A < 360 , intercept(’) 

105 

AZIMUT = 240.1 (deg.) 

INTERCEPT = 0.5 (’) 


I ”N” : PRINT ” NAVIGATION ASTRONOMIQUE” : DEGREE 

5 N = 86 : INPUT ”JOUR= ” ; J ,”MOIS= ” ; M , "ANNEE NN = ” ; N 

6 I = J + 31 *M - 32 - (M>2) * (3 -(INT (N/4) = N/4)) 

- (M > 4) - (M>6) - (M > 9) - (M> 1 1) + INT (365.25* (N - 85)) 

9 INPUT "TEMPS LOCAL - T.U” ; W 

10 INPUT "TEMPS H.MNS = ” ; H , "SEXTANT D.MNS = ”; S 

II Z = 2.0 : INPUT "HAUT/EAU” ; Z 

12 F = - 1 : INPUT "BORD INF = ENTER, SUP = 1 ” ; F 
15 H = DEG H - W : T = I + H/24 : S = DEG S 

20 S = S - \f(Z/1 140) 

21 IF S > 11 LET Z = 1 / TAN S / 61 : GOTO 23 

22 Z = 0.61 /(I + 0.4*S + S*S/33*(1 - S/22)) 

23 S = S - 0.93*Z 

40 O = 23.443 : E = 0.016715 : B = 365.256363 : R = 360 

41 C = 2.1230 : P = 77.3175 : Q = 100.5915 

42 X = (T - C)*R/B : Z = E*R/2/7T: U = X 

43 FOR K = 1 TO 4 : U = X + Z * SIN U : N EXT K 

44 V = 2 * ATN ( TAN (U/2) * T((1 + E)/(1 - E))) 

45 Z = 0.014 * T/B : L = V - P + Z 

46 A = ATN (TAN L * COS O) + 180 * (COS L < 0) 

47 D = ASN (SIN O * SIN L) 

48 Y = H/24 + T/B + (Z + Q)/R 

49 G = Y - A/R : G = (G - INT G) * R 

50 S = S + 0.267 *(1 + E*COS V) *(COS S/109 - F) 

100 INPUT "LAT D.MNS (N + ,S-)=” ; Y, "LONG (0+ ,E-)= ” ;X 

101 V = DEG Y : U = G - DEG X 

102 Z = ASN (COS V*COS D*COS U + SIN V*SIN D) 

103 A = ACS ((SIN V*COS D*COS U - COS V*SIN D) / COS Z) 

104 A = A * SGN SIN U + 180 : K = (S-Z) *60 

105 PRINT USING ”#### ” AZ = ” ; A, ” IN = ” ; K 

120 GOTO 10 

Gilbert VINCENT 


COMPLEMENT A « FONCTION » 

DU N" U 


Tout d'abord voici quelques 
erreurs : 

R=X 2+Y 2:R =SQR R 
T=Y/X:Y=ATN T 
et, 

R=X 

X=X 2+Y 2:X-SQR X 
T =' Y/R: Y = ATN T 

Dans ce même article, M. DUBUS nous expli- 
que que l'angle trouvé peut ne pas être l'angle 


recherché mais son complément, pour la con- 
version REC-POL. 

Dans le manuel d'applications du PC-1 211, l'am- 
biguité avait été levée avec élégance : 

LISTING 1 

J'ai amélioré ce programme afin d'obtenir un 
angle en fraction de PI lorsque nous sommes 
dans le mode RADIAN 
Exemple : 

RUN «RP » 


• 1 ENTER 

• SÛR 3 ENTER 
affichage de 2. -2.PI/3 

LISTING 2 

De plus la ligne 101, facultative permet de met- 
tre un résultat effectué au clavier sous forme 
de fraction. 

Exemple : 

1/3 + 3/4 ENTER 

SHIFT F (mode DEF) pour PC - 121 1 ou DEF F 
pour PC -1350 

CL pour PC - 1 21 1 ou CLS pour PC - 1 350 
S ENTER affichage du numérateur : 13 
J ENTER affichage de dénominateur : 1 2 
Le déclenchement de l'erreur peut-être évité, 
mais la complexité ainsi entrainée ne parait pas 
justifiée. 


© 1986 H. FAUCON 



Bien entendu ce programme des nombreuses applications 

s'adresse à une minorité de pos- personnelles, et surtout prefes- 

sesseurs de PCs, mais il nous a sionnelles qu'un PC SHARP peut 

paru intéressant de montrer une effectuer. 

Ce programme est écrit en pur Basic sur un PC le listing publié du programme. Ces commen- 

1251, mais peut sans difficulté (en tenant taires font office de mode d'emploi. Les exem- 

compte des particularités du 1 251 ; affichage pies illustrant chacun des 3 choix du menu vous 

notamment) être adapté à d'autres machines. permettront de mieux comprendre le déroule- 

II fonctionne avec ou sans imprimante, le choix ment du programme. 

étant effectué dans le programme à plusieurs J'espère qu'il vous rendra autant de services 

reprises. Conformez-vous aux instructions affi- qu'à moi-même. 

chées, et lisez les commentaires figurant dans H. CARUSO. 






LES PHASES DE LA LUNE 


Le calcul des positions de la Lune 
est l'un des problèmes les plus 
complexes ae l'astronomie de 
position. 

La lune a autour de la Terre un 
mouvement que l'on peut gros- 
sièrement considérer comme 
Képlérien, mais le Soleil le per- 
turbe de façon importante. Pour 
avoir la position ae la Lune avec 


En général la position de la lune est donnée par 
ses coordonnées écliptiques géocentriques 
(longitude, latitude et parallaxe horizontale 
équatoriale). 

Par définition la phase de la lune est égale à 
la différence entre la longitude apparente de la 
lune et de la longitude apparente du soleil. 
Quand cette différence = 0° c'est la Nouvelle 
Lune 

Quand cette différence = 90° c'est le Premier 
Quartier 

Quand cette différence = 180° c'est la Pleine 
Lune 

Quand cette différence = 270° c'est le Der- 
nier Quartier. 

Pour obtenir de manière très précise l'instant 
des phases de la lune, le Bureau des Longitu- 
des calcule les positions du soleil et de la lune 
en utilisant les méthodes publiées par Simon 
Newcomb en 1895 et E.W. Brown en 1919. 
Rien qu'en ce qui concerne la longitude, la théo- 
rie de Newcomb pour le soleil renferme 1 24 ter- 
mes de perturbations et celle de E.W. Brown 
pour la lune en contient 800. De tels calculs 
dépassent largement la capacité d'un micro- 
ordinateur de poche. 

Heureusement le calcul des quatre phases prin- 
cipales de la lune ne nécessite pas une méthode 
aussi complexe. 

Dans son manuel « Astronomical formulae for 
calculators », Jean Meeus donne une méthode 
concise qui ne nécessite pas le calcul explicite 


une précision suffisante, il con- 
vient en outre de tenir compte 
des perturbations exercées par 
les planètes, pertuibations dites 
planétaires directes (action des 
planètes sur la lune) ou indirec- 
tes (action de planètes sur l'or- 
bite de la terre donc indirecte- 
ment sur l'orbite de la lune 
autour de la terre. 


des longitudes de la lune et du soleil. C'est 
cette méthode, exposée ci-dessous, que notre 
programme met en oeuvre. 

Les instant des phases moyennes de la lune, 
affectés de l'aberration du soleil sont donnés 
par : 

JD = 2415020,75933 + 29,53058868 k + 
0,0001178 T 2 - 0,000000155 T3 + 
0,00033 sin (166°, 56 + 132°, 87 T - 
0°, 0091 73 T 2 ) (1) 

Ces instants sont exprimés en jours Julien des 
éphémérides. Dans la formule (1) ci-dessus, 
une valeur entière de k donne l'instant d'une 
Nouvelle Lune. 

Si l'on incrémente cette valeur entière de 0,25 
on obtient un Premier Quartier ; 

Si l'on incrémente cette valeur entière de 0,50 
on obtient une Pleine Lune ; 

Si l'on incrémente cette valeur entière de 0,75 
on obtient un Dernier Quartier. 

Toute autre valeur de k donne un résultat sans 
signification. Une valeur de k négative corres- 
pond à une phase d'une lunaison antérieure à 
1900. 

Une valeur approchée de k est donnée par la 
formule : 

k = (A - 19001x 12,3685 (2) 

A est l'année considérée prise avec les déci- 
males correspondant au mois envisagé ; par 
exemple pour le mois de mars 1 977, on pren- 
dra A = 1977,25. 


Finalement dans la formule (1), T exprimé en 
siècles Julien est le temps écoulé depuis le 0 
Janvier 1 900 à 1 2 ET. 

T est donné par la formule : 

T = _J (3) 

1 236,85 

On calcule ensuite les angles suivants : 

* L'anomalie moyenne du soleil à l'instant JD 
M' = 359,2242 + 29,10535608 k - 
0,0000333 T 2 - 0,00000347 T3 (4) 

* L'anomalie moyenne de la lune 

M' = 306,0253 + 385,81691806 k + 
0,0107306 T 2 + 0,00001236 T3 (5) 

* L'argument de latitude de la lune 

F = 21,2964 + 390,67050646 k - 
0,0016528 T 2 - 0,00000239 T3 (6) 
Ces angles exprimés en degrés décimaux 
seront ramenés au format 0°, 360° avant de 
poursuivre les calculs. 

Pour obtenir l'instant de la phase vraie, les cor- 
rections suivantes doivent être apportées au 
temps de la phase moyenne calculé par la for- 
mule (1). Les coefficients des termes ci- 
dessous sont donnés en jours décimaux. 

Corrections à apporter dans le cas d'une Nou- 
velle Lune ou d'une Pleine Lune : 

+ (0,1734 - 0,000 393 T) sin M 
+ 0,0021 sin 2M 

- 0,4068 sin M’ 

+ 0,0161 sin 2 M' 

- 0,0004 sin 3 M' 

+ 0,0104 sin 2 F 

- 0,0051 sin (M + ,’•/') 

- 0,0074 sin (M - M') 

+ 0,0004 sin (2F + M) 

- 0,0004 sin (2F - M) 

- 0,0006 sin (2F + M') 

+ 0,0010 sin (2F - M' ) 

+ 0 ; 0005 sin (M + 2M' ) 

Corrections à apporter dans le cas d'un Premier 
ou Dernier Quartier : 

+ (0,1721 - 0, 0004 T) sin M 
* 0,0021 sin 2M 

- 0,6280 sin M' 

+ 0,0089 sin 2 M' 

- 0,0004 sin 3 M' 

+ 0,0079 sin 2F 

- 0,0119 sin (M + M') 

- 0,0047 sin ( M - M' ) 

+ 0,0003 sin (2 F + M) 

- 0,0004 sin (2F - M) 

- 0,0006 sin (2F + M') 

+ 0,0021 sin (2F - M' ) 

+ 0,0003 s,in (M + 2 M') 

+ 0,0004 sin (M - W ) 

- 0,0003 sin (2M + M' ) 



En outre dans le cas d'un Premier Quartier, on 
ajoutera les termes suivants : + 0,0028 - 
0,0004 cos M + 0,0003 cos M' 
et dans le cas d'un Dernier Quartier : 

- 0,0028 + 0,0004 cos M - 0,0003 cos M' 

Après avoir obtenu le jour Julien JD correspon- 
dant à la phase de la lune, il reste à calculer 
la date calendaire et l'heure TU correspondant 
à ce nombre JD. 

L'algorithme est le suivant : 

Le jour de la semaine correspondant à une date 
donnée est obtenu par la formule suivante : 
x = (JD + 1,5) modulo 7 
Si x = O, le jour de la semaine est un diman- 
che, si x = 1 c'est un lundi, si x = 6 c'est 
un samedi. 

La date est obtenue de la manière suivante : 

On ajoute 0,5 à JD et soit J la partie entière 
et F la partie fractionnaire de ce nouveau nom- 
bre.e jour de la semaine correspondant à une 
date donnée est obtenu par la formule 
suivante : 


x = (JD + 1,5) modulo 7 
Si x = 0, le jour de la semaine est un diman- 
che, si x = 1 c'est un lundi, ...., si x = 6 c'est 
un samedi. 

La date est obtenue de la manière suivante : 
On ajoute 0,5 à JD et soit J la partie entière 
et F la partie fractionnairz de ce nouveau 
nombre. 

• Si l'année Y est inférieure à 1 583 (calendrier 
Julien), on prend A = J. 

• Si l'année Y est supérieure ou égale à 1 583 
(calendrier Grégorien), on calcule : 


Al = INT 


J 


51,12264) 


36524,25 

A = J + 1 + Al - INTIA1/4) 
Puis on calule : 

B = A + 1524 

B 


INTL 


365,25 


- 0,3343) 


D = INT (365,250 
E = INTL 


Le jour du mois (avec ses décimales) est alors 
donné par : 

B - D - INT (30,61 E) + F 

Le rang du mois est donné par : 

M = E - 1 si E < 13,5 ou 
M = E-13siE> 13,5 

L'année est donnée par : 

C - 4716 si M > 2,5 ou 
C - 4715 si M < 2,5 

On trouvera ci-après un listing commenté du 
programme « Phases de la Lune » écrit pour un 
micro-ordinnateur Sharp PC. 1261 et quelques 
exemples d'utilisation de ce programme. L'er- 
reur faite sur l'heure des phases de la Lune ne 
dépasse pas 2 minutes de temps. 


30,61 



1 : v A * : PR INT = LPRINT 
: GOTO 5 

2: V Z V : PRINT = PRINT : 

GOTO 5 

3: REM PHASES DE LA LUN 
E* J. Hery d apres J. 
Meeus* Ed i . 29/11/85 
5: CLEAR : HAIT 100: 
DEGREE :U=0: DIM MM 5 
( 12)*9? L$<T)*2 ï 
RESTORE 

7: FOR 1=1 TO 12: READ 
MM$( I ) : NEXT I 
10: FOR 1=1 TO 7: READ L 
$<I>: NEXT I 
20: PRINT v **Phases de i 
a LUNE*** 

25: INPUT * ANNEE ? *?Y: 
INPUT * No mois ou AN 
2 *5'S$:Y1=Y 

30:G=1 : IF Y<1583 LET G 
=8 

35: USING *m#**s PRINT 
* AN: * ? Y: IF S$O v AN v 
CURSOR 9: PRINT v Moi 
s: W ?MM$( VAL S$) 

40: PRINT v Ph. Date 
TU. Ch.*)*: CURSOR 
24: PRINT *:--: 


85: M0=K0*. 08084821 133 
90: M0=360*(M0~ INT M0)+ 
359.2242 

95:M0=M0-.0000333*T2 
100: M 0 = M Ü ~ . 00000347*T3 
105:M1=K0*. 07171366128 
1 10: M1=360*(M1~ INT Ml) + 
306.0253 

1 15: Ml =M1+. 0107306*T2 
1 20 : M 1 =M 1 + . 0000 1 236*T3 
125:B1=K0*. 08519585128 
130: B1=360*(B1- INT Bl)+ 
21.2964 

135: B1=B1-. 0016523*T2“. 0 
0000239*T3 

140: I=4*( VAL S*-l>: IF 
S$=*AN* LET 1=0 



Entrée dans le programme par : 
DEF A = avec imprimante 
DEF Z = sans imprimante. 


Initialisation des variables, passage 
en mode degrés et déclaration des 
tableaux. 

Ecriture des tableaux des douzes 
mois de l'année et des sept jours de 
la semaine. 


Entrée du millésime de l'année pré- 
cédé du signe « - » si c'est une 
année avant J.C. 

Entrée du numéro du mois (ex : 3 
pour mars) ou du mot AN si l'on 
désire les phases de la lune pour 
toute l'année. 

Impression du millésime de l'année 
et du mois demandé. 


De 45 à 80 - Calcul de l'instant de 
la phase moyenne de la Nouvelle 
Lune la plus proche du début de l'an- 
née considérée. 

JD = 2415020,75933 + 

29,53058868 k + 0,0001178 T2 
- 0,0000001 55 T3 + 0,00033 sin 
(166°, 56 + 132°, 87 T - 
0,009173 T2) 

Pour obtenir une meilleure précision, 
on calcule séparément la partie 
entière et la partie fractionnaire de 
JD. 

k est un entier donné par la formule : 
k = (Année considérée - 1 900) x 
12,3685 

T = temps en siècles Julien écoulés 
depuis le 0 janvier 1900 à 12 ET 
La ligne 80 convertit le temps des 
Ephémérides en temps universel. 


De 85 à 135 - Calcul de : 
L'anomalie moyenne du soleil au 
temps JD = MO 

L'anomalie moyenne de la lune = 
Ml 

L'argument de latitude de la lune = 
B1 

Tous ces angles exprimés en degrés 
décimaux sont ramenés dans le for- 
mat (0°,360°) en utilisant la fonc- 
tion Modulo 360 

A modulo 360 = A - 360 x INT 
(A/360) 

= 360 x ( A - INT A ) 
360 360 


145: FOR K9=I TO 53 
150: J=J0+7*K9:F=F0+. 3826 
47î7*K9 
155: K=K9/4 

160: M5=M0+K*29. 10535688 
165:M6=M1+K*385. 81691806 
170: B6*B1+K*390. 67050646 
180: IF IJ=8 OR U=1 GOSUB 
300 

185: IF U=. 5 OR U=1.5 
GOSUB 340 
190:F=F+. 5/1440 
195: J=J+ INT F: F=F- INT 

197: R=J+F+i . 5: R=R-7* INT 
<R/7)+l 
200: GOSUB 489 
205:IF Y<Y1 GOTO 268 
210: IF S$=*AN* OR M= VAL 
S$ GOTO 220 
215: GOTO 255 
228: HAIT 0: CURSOR 24 
225: IF ij=0 PRINT : 

CURSOR 24: PRINT v N 

l v ; 

230:IF U=. 5 PRINT v PQ*î 
235: IF U=1 PRINT * PL*? 
248: IF U=1 .5 PRINT * DQ* 

iiiiiysÉiii 

245: PRINT * *;L$(R)> 

USING *m*5D15M5 
250: USING •«**#.***: 
PRINT DMS H 

255: IF M> VAL S$ AND S$< 
>* AN* GOTO 278 
260: U=U+. 5: IF U=2 LET U 
=8 

265: NEXT K9 
270: PRINT : END 


380: F=F-. 4068* SIN M6 
305: F=F+< . 1734-. 808393*7 
)* SIN M5 

310: F=F+. 0161* SIN CM6+M 
6)-. 8084* SIN (M6+M6 
+M6> 

315: F=F+. 8184* SIN (B6+B 
6)+. 8004* SIN (B6+B6 
+M5> 

320: F=F-. 0074* SIN <M5-M 
6>-, 0084* SIN <B6+B6 
-M5) 

325: F=F-. 0851* SIN CM5+M 
6)-. 0086* SIN (B6+B6 
+M6) 

330: F=F+. 0821* SIN (M5+M 

5) +. 0005* SIN (M5+M6 
+M6) 

335: F=F+. 0018* SIN CB6+B 
6-M6) : RETURN 
340:F=F+(. 1721-. 0084*T)* 

. SIN M5+.0821* SIN <M 
5+M5) 

345: F=F-, 6280* SIN M6+.0 
039* SIN (M6+M6) 

350: F=F-. 0004* SIN (M6+M 
6+M6)+. 0079* SIN <B6 
+B6) 

355: F=F-. 81 19* SIN (M5+M 

6) -. 0847* SIN (M5-M6 
) 

360: F=F+. 0003* SIN (B6+B 
6+M5)~. 0084* SIN CB6 


45: K0= INT CCY-1980)*12 
.3685) 

50 : T= < Y- 1 899 . 5 ) / 1 80 

55:T2=T*T:T3=T*T*T 

60: J0=2415820+29*K0 

65 : F0=. 008 1 1 78*T2-. 0000 
80155*T3 

70: F0=F0+. 75933+. 530588 
68*K8 

7 5 : F 0 = F 0 +. 8 8 ü 3 3 * SIN (1 
66. 56+132.87*7-. 0091 
73*T2) 

80: F8=F8-. 000837*7-, 808 
335*T2 


De 140 à 170 - Incrémentation de 
JD, MO, Ml et B1 pour les 53 pha- 
ses possibles de l'année considérée. 
Le pas d'incrémentation est égal au 
quart d'une lunaison. 

29,53058868 _ y 38264717 

La partie fractionnaire de K = K9/4 
marque la phase : 
si FRAC (K) = 0 c'est une Nouvelle 
Lune 

si FRAC (K) = 0,25 c'est un Premier 
Quartier 

si FRAC (K) = 0,50 c'est une Pleine 
Lune 

si FRAC (K) = 0,75 c'est un Dernier 
Quartier 

Dans le cas où les phases sont 
demandées pour un seul mois de 
rang m, la ligne 140 permet d'initia- 
liser l'incrémentation de JD à la Nou- 
velle Lune du mois (m - 1). Le fait 
de soustraire 1 à m permet d'obte- 
nir toutes les phases du mois de rang 
m. 

La ligne 190 permet d'arrondir le 
résultat à la minute la plus proche en 
ajoutant une demi-minute à la partie 
fractionnaire de JD. 

La ligne 197 permet d'obtenir le jour 
de la semaine en calculant le reste 
de la division par 7 du monbre JD 
incrémenté de 1,5. 

La ligne 255 permet de sortir de la 
boucle d'incrémentation dans le cas 
où le rang du mois M calculé à partir 
du nombre JD devient supérieur au 
rang du mois demandé en ligne 25. 

Sous-programme des corrections à 
apporter à la phase moyenne pour 
avoir la phase vraie, dans le cas 
d'une nouvelle lune ou d'une pleine 
lune. 


Sous-programme des corrections à 
apporter à la phase moyenne pour 
avoir la phase vraie, dans le cas d'un 
Premier Quartier ou d'un Dernier 
Quartier. 


+B6-N5) 

365: F=F-. 0006* SIN CB6+B 
6+«6)+.8021* SIN <B6 
+B6-M6) 

370: F=F+. 8083* SIN <I*?5+M 
6^f16) + .0804* SIN (M5 
-116-1*16 >-.8003* SIN < 
H5+M5+H6) 

38 0:F=F+ SGN <1-U>*(.002 
S-.0004* COS N5+.800 
3* COS M6> 

385: RETURN 

400: F=F+. 5 
405: IF F<1 GOTO 415 
410: F-F-l : J=J+1 
415: IF G=1 GOTO 425 
420: A=J: GOTO 435 
425: Al= INT ((J/36524.25 
>-51.12264) 

430: A=J+1+A1- INT <Al/4> 
435: B=A+1524 
440: C= INT < (B/365. 25)-. 
3343) 


Sous-programme de calcul de la date 
calendaire et de l'heure en fonction 
du nombre de jours Julien JD. 


445:3= INT (365.25*0 
450: E* INT < <B-B>/38. 61 > 
455: B=3-B- INT <30.61*E> 
+F 

468 : M=E- 1 : Y=C-47 1 6 
465: IF E > 1 3 . 5 LET «=M-12 
478: IF j*|<2. 5 LET Y=Y+i 
475: 31 = INT D: H=24*(B-H1 

Si® 

430: RETURN 

500: BATA v ‘Janv » er v > *Fevr 
ier% v Mars v > ¥ Ayr i r 
518: BATA v Met i » v Ju i n M ? v J 
u i I I et v > v Aout ¥ 

528: BATA v SePte»br e ¥ > tf 0c 
tobre v 9 "Novembre* ? V B 
ecembre" 

530: DATA V B i v ? "Lu" 5 v Ma v 9 
v Ne M j v Je% v Ve tf ? "Sa" 


— r~' 


HASES DE LA LUNE POUR L'ANNEE 198: 


■wVs-.ï.îi *■ 




**Phases ae !a LUNE 
AN: 1933 


Date 



ml ba 11 b 
PQ Ve 17 6 

PL Sa 25 6 

DQ Di 3 7 


4.37 
19.46 
8 . 32 


Annuaire du 
Bureau des 
Longitudes 


5.08 

5.34 

22.27 

19.17 


0.32 

17.32 

8.58 

13.16 


17.44 

2.26 

19.27 

8.39 


19.25 

14.17 

18.48 

21.08 


4.38 
19.46 
8.32 
12.12 


NL Di 10 7 

PQ Di 17 7 

PL Di 24 7 


NL Lu 8 8 

PQ Lu 15 3 

PL Ma 23 3 

Me 31 8 


12.19 

2.51 

23.27 

0.53 













































EXEMPLE D'UTILISATION DU 
PROGRAMME 

Petits problèmes littéraires 

Les écrivains font souvent allusion à la phase 
de la lune dans leurs descriptions. Si la descrip- 
tion est datée, on peut découvrir si l'auteur est 
fidèle aux faits. 

Victor Hugo (Les Misérables) : Pleine lune à 
Waterloo, le 18 juin 1815. 


H N • 

1815 



r*1o j s 

: J u i n 



Ph. 

Date 


J U . < h . ni } 

! — I 


— 


NL 

He 7 

6 

15.54 

PQ 

Me 14 

H, 

7. 5* 

PL 

M p ' i 

6 

18.82 

dgT 

Je 29 

6 

21.46 


Le 1 8 juin 1 8 1 5 la lune approchait de sa péni- 
tude. Le fait est donc correct. 


Stendhal (Mémoires d'un touriste) : Clair de 
lune magnifique le 3 août 1837. 


AN: 

183‘ 

7 



Mo 1 s 

: ho ut 



Ph. 


Date 


TU. (h . lift) 

NL 

Ma 



* •-! .J 

PQ 

Me 

9 

O 

13.24 

PL 

Me 

16 

O 

5.41 

BQ 

Me 

23 

i- 

O 

1.18' 

NL 

Je 

3l 

O 

4.81 


La lune était nouvelle le 1 er août et donc prati- 
quement invisible le 3 août 1837. Souvenir 
inexact ou inventé. 

Marcelle Unayre (François Barbazanges) : « Ce 
samedi, vingt-septième jour de juillet, l'an 
1673, naquit... La lune était vieille au dernier 
quartier ». 





AN: 

ibfi 


Mo i s 

: Ju i M et 


Ph. 

D a t e 

T U. (n . m ) 

DQ 

Ve 7 7 

6.51 

Nl 

V e 1 4 7 

1 . 52 

PQ 

Je 28 7 

18.5 6 

PL 

Ve 28 7 

19. 86 


Le 27 juillet 1 673 fut un jeudi et la lune n'était 
pas encore pleine. Souvenir certainement 
inventé. 

Jean Hery 


CALCUL 
DE RESSORTS 


Ecrit sur PC 1401/02 + CE I26P, 
ce programme fonctionne sur 
tous les PCs, moyennant un amé- 
nagement des affichages. Si 
vous ne possédez pas d'impri- 
mante, remplacez les LPRINTpar 
des PRINT. Nous tenons de plus, 
à féliciter l'auteur Mr MENARD, 
pour la qualité rare de sa 
documentation. 

Ce programme sert à calculer les ressorts utili- 
sés dans les petits mécanismes. On peut aussi 
bien calculer des ressorts de traction, compres- 
sion ou flexion que les barres de torsion. Cette 
dernière possibilité n'est possible qu'avec l'ex- 
tension du programme, fournie par 1402. Car 
la capacité mémoire du PC 1401 ne permet pas 
d'inclure cette option peu usitée, il est vrai : le 
programme occupe 3520 octets. 

Il y a deux procédés de calcul : automatique et 
manuel. 

AUTOMATIQUE 

L'ordinateur recherche le diamètre de fil adéquat, 
en fonction des données géométrique, et de 
charge initiales. Cette recherche s'effectue dans 
deux nuances de matières : CPI et CP2, et pour 
des diamètres de fils allant de 0.4 à 5mm, par 
essais successifs de 0.1. L'ordinateur fournit 
ensuite toutes les caractéristiques du ressort 
retenu. Ainsi que l'évaluation de sa durée de vie 
pour les ressorts tractions/compressions et barre 
de torsion. 

MANUEL 

Le PC fournit toutes les caractéristiques méca- 
niques d'un ressort défini sur plan. Dans ce 
mode de calcul, des changements successifs de 
paramètres géométriques permettent un calcul 
à « tâtons » du ressort voulu. De plus, cela per- 
met de dépasser les limites de travail fixées à 
l'ordinateur. Limites qui sont : 35% limite élas- 



tique pour les ressorts de traction/compression, 
85% pour les ressorts flexion et 50% pour les 
barres de torsion. Dans ce mode, la machine 
interroge : CPI ou CP2 ? répondre 1 ou 2 sui- 
vant que l'on désire de l'acier CPI ou CP2. La 
durée de vie des ressorts hélicoïdaux est éga- 
lement donnée dans ce mode. 

Les résultats tombent automatiquement sur l'im- 
primante : voir les exemples joints. 

UTILISATION 

RUN ou DEF K, lance le progrmme. Apparition 
du titre : CALCUL RESSORT. Appuyez sur 
ENTER : UNITES = MM/DAN. Un nouvel appui 
vous permet de répondre à la question : TYPE 
RESSORT ? par : 

H : ressorts hélicoïdaux (traction/compression) 
F : ressorts de flexion (cor de chasse) 

B : barres de torsion (si vous êtes muni de cette 
option) 

Validez par ENTER, toute réponse autre redon- 
nera systématiquement cette question. Celà est 
vrai de manière générale pour les questions clefs. 
Si vous choisissez la procédure H. La question 
TRA/COM ? vous est posée, répondez par : 

T : pour ressort traction 
C : pour ressort compression. 

CALCUL ? invite à choisir le mode de calcul : 
A : pour calcul automatique (détermine le dia- 
mètre du fil) 

M : pour calcul manuel (on impose le diamètre 
du fil) 

Cette question est d'ailleurs posée quelque soit 
l'option choisie H, F ou B. 

Saisissez par la suite les données géométriques 
choisies. Dans le cas du calcul manuel, il faut 
donner le type d'acier désiré : CP1/CP2 ? (1/2) 
en tapant 1 ou 2, suivi du sempiternel appui sur 
ENTER après une entrée. 

Les exemples donnés pour différents cas de 
figure, sont la pour vous aider à comprendre le 
déroulement, à la fois simple et logique du pro- 
gramme. Les dépassements de limites sont indi- 
qués, et la machine demande si besoin est de 
refaire les calculs en CP2. La longueur hors-tout 
est la longueur de l'enroulement théorique, plus 
deux spires pour accrochage. En calcul manuel, 
toujours vérifier que le taux de travail à la charge 
(TX MAX) ne dépasse jamais la limite de défor- 
mation élastique, de même prendre une garde 
confortable. 

Pour reprendre un autre calcul, taper 0,à la ques- 
tion AUTRE ESSAI ? Si vous répondez N, la 
machine vous adresse un rapide AU REVOIR. 
Bon ressorts !!! 


Michel MENARD 


ABREVIATIONS UTILISEES : 

CH. INI : charge à la tension initiale du ressort 
(tract/comp) 

CH.MAX : charge à la tension maximum du res- 
sort (tract/comp) 

CO. UTI : course utile = course de travail 
DI.MOY : diamètre moyen d'enroulement du 
ressort 

DI.FIL : diamètre du fil 
FL.INI : flèche à la tension initiale 
FL.TOT : flèche à la tension maxi 
TX.INI : taux de travail à la tension initiale 
TX.MAX : taux de travail à la tension maxi 
NB.SPI : nombre de spire d'enroulement 

CP. INI : couple à la tension initiale 
(flexion/torsion) 

AN.TRA : angle de travail 
LG.BAR : longueur barre (torsion) 

PA.MIN : pas minimum (compression) 

LG.ENR : longueur enroulement (traction) 
LG.H.T : longueur hors tout 
LG.T.I : longueur à la tension initiale 
LG.DEV : longueur développée 
AN.INI : angle à la tension initiale 
AN. MAX : angle à la tension maxi 
CP.MAX : couple à la tension maxi 
DI.E.L : diamètre extérieur à l'état libre (flexion) 
DI.E.I : diamètre extérieur à la tension initiale 
DI.I.M : diamètre intérieur à la tension maxi 



10.0 I 
10.8 I 
8.9 I 


I 10.0 I 

I 20 » 0 I 





b o U K i ' « r KiN ! - UNI ! L5 

= NM /DAN" 

88 î INPUT "TYPE RESSORT 
? M 50$:û$=LEFT$ <G$?1 


98:1 h Ü$< >"H" AND 

0*0 

08: IF û$="H" GOTO 

1808 

2 8 : 1 F 0 $ = " F " G 0 T 0 

3888 

1 8 8 8 : C L E A R : G 0 S U B 

7880 

INPUT "TRA/C 

ON ?" 

1005:R$=LEFT$ (R$ 

? 1 > 

1018: IF R$< > • T • A 

ND R$ 


1012: IF R$="T" GOSUB 96 
80: LPRINT "I T 
RACTION I v : 

GOSUB 9608 

1013: IF R$="C" GOSUB 96 
88: LPRINT "I 00 
MPRESS ION I": 

b u s u B 96 y y 

1815 : GOSUB 7508: IF 0$=" 
A " GOTO 1 848 

1830* I h u $ = " Pt " u U Tu 1 1 6 


1840: GOSUB 9588: GOSUB 7 
010: GOSUB 7840: 
GOSUB 9688 













LM LM LM 




1858’» FOR D=.4 TU 6 STEP 
. 1 s GOSUB 8888 
1878s GOSUB 8218s Z=H*. 45 
s GOSUB 9 158 s IF T-Z 
>1.5 NEXT B 

1898 s IF B >=6.1 GOTO 118 
0 

1892s GOSUB 9588 
1895 s GOTO 1198 
1188s GOSUB 9518 s GOSUB 7 
888 s FOR B=. 4 70 6 
STEP . lsGOSUB 8888 
1138s GOSUB 8228s Z=H*. 45 
s GOSUB 9158s IF T-Z 
>1.5 NEXT D 
1158s GOSUB 8258 


GOTO 

1892 

GOSUB 

78185 GOSUB 

848 s G 

OSUB 7888 s 

GOSUB 

i b i y S b u y U B 

888 



1 1 6 d s b O y u B y 2 6 y 

1178s GOSUB 8278 

11 88 s GOTO 1192 

11 98 s GOSUB 9178 

1192s IF R$= ‘‘ 7" GOTO 128 


1194s IF R$=‘‘ C v GOTO 228 
8 

12803 GOSUB 9818s GOSUB 8 
8 6 0 s G O S U B 9 8 7 8 

1218s GOSUB 9688s GOSUB 9 
548 

1228 s GOTO 9526 

2288s GOSUB 9818s GOSUB 8 
8 y y s b u s U B 9 y 6 y s 
G O S U B 9 872s G O T O 12 
l y 

38805 CLEAR ; GOSUB 7888s 
G O S U B 9 6 0 8 s L P R I H T 
V I FLEXION 

I v s GOSUB 9688 s 
GOSUB 7588s IF Û$= v 
A • GOTO 3848 

3830 s IF O $ = " M ” GOTO 316 
8 

3 y 4 y s b u y U B 9 5 y y s b u y U B 7 
8 5 8 s G O S U B 7 8 7 8 s 
GOSUB 7848s GOSUB 9 
688 

3858 s FOR D=. 4 TO 6 STEP 
.15 GOSUB 8188s 
b U y ü B y 1 3 y s b O S U B 8 
158 

3878 s GOSUB 8218s Z=H*. 85 
s GOSUB 9150s IF T-Z 
>1.5 NEXT B 

3890s IF D > =6.1 GOTO 318 
8 

892s GOSUB 9588 
895 s GOTO 3198 
188s GOSUB 9518s GOSUB 7 
880s FOR Ü=.4 TO 6 
STEP .lîGÛSUB 8188 
s GOSUB 8 138 s GOSUB 
8158 


3 1 38 s GOSUB 8228 s Z=H* . 85 
s GOSUB 9150s IF T-Z 
>1.5 NEXT D 
3 158 s GOSUB 8258 
3152s GOTO 3892 


316 y s b u y U B 7 y 5 8 s b u y U B ? 
878 s GOSUB 7848 s 
GOSUB 7888 
3 165 s GOSUB 7538 
3 1 b 6 3 \j i J U U B y 2 b 8 

3 1 6 7 s G O S U B 8 2 7 8 

317 8 s G O S U B 8 1 8 8 s G O S U B 8 

138 s GOSUB 8158s 
GOTO 3288 
3 198 s GOSUB 9178 
3288 s GOSUB 8168s GOSUB 9 
888 s GOSUB 9238 s 
GOSUB 91 18 s GOSUB 9 


128; GOSUB 9688 
3228 s GOTO 9526 
7888s US ING "ZtttZZ. $T s 
RETÜRN 

7818s INPUT "CH. I N I =? v 5 P 
SLPRINT v ï CH. INI= 


882s IF B =8 GOSUB 9498s 
GOTO 7888 
883s GOSUB 9588 
885s RETURN 

588 s INPUT v CALCUL ? M 5 Q 
$sû$=LEFT$ <0 $p1> 

5 18 s IF 0$< > " A M AND 0$< 
> • pt • GOTO 7588 
528 s RETÜRN 

538! INPUT v CPi/CP2 ?<1 

/2> v ;w 

'532s IF 14< >1 AND 1402 
GOTO 7538 
‘540s RETÜRN 

'558 s INPUT y AUTRE ESSAI 
? M 5B$sB$=LEFT$ (B 

$9 1) 

*568s IF B$< > V 0 V AND B$< 
>• N ‘ GOTO 7558 
’570! RETURN 

Ï888 : K= 1 + ( < 1 . 25*B > / A > + ( 
. 875*SQU (B/A)) 

:! 018s I = ( ( 8 * P * A ) / ( ïï * B - 3 ) 
) :4c K s F = ( X * C ) / < X - P ) s 


? I V 5P5 

V T 

JL 

G=F-Cs 

T = ( ( 3 ■¥ X * A ) /( 

7012: IF p =0 

GOSUB 9 49 y s 

K * B 3 ) 

)*K 

GOTO 78 

18 

8050: N=(F*7 

358*B'-'-'4)/(8* 

7828 s INPUT v 

GH.MAX=? V 5X 

X*A-3) 

s RETÜRN 

SLPRINT 

V I CH.MAX= 

3060: E=B*N: 

J=E+( A * 2 ) — B s 

? r;x; 

r v 

L=J+ 6 s 

RETURN 

7022: IF x =0 

GOSUB 9490: 

3080: M=(F+( 

(B+. 5)*N) )/N 

GOTO 78 

28 

s J= ( M* 

N)+Bs L=J-Gs 

7830s INPUT 

CO.UTI=? tf 50 

RETURN 


SLPRINT 

‘•‘1 00. UT I = 

8188s l=A*ïï* 

N:F=< 11520*0 

? r ;c; 

I v 

*L)/(S 

QU ïï*28888*B 

7832s IF 0=8 

GOSUB 9490: 

rt 4) s 1 = 

( 32*0 ) / ( K + B 

GOTO 78 

30 

3) s RET 

URN 

7835s RETURN 


81385 M=F+U: 

E=(C*M)/Fs 

7840s INPUT 

BI.M0Y=?' J ; A 

RETURN 


SLPRINT 

I BI.MOY= 

8158s T=( E*3 

2)/(ïï*B"'3) s 

? F5A5 


RETÜRN 


7842s IF A =8 

bOSUB 9490s 

8168s R=A+Bs 

X = ( ( A* ( 360- ( 

GOTO 7048 

14/ N) ) ) 

/368)+Bs P=( ( 

7045: RETURN 


A* (368 

-( M/N ) ) ) /360 

7050: INPUT 

:p. ini=? ,j ;c 

)-Bs RE 

TURN 

: LPRINT 

"I CP . I N I = 

81985 14= (576 

ü*C*L)/(SQU 


7 i ’ ? U ? i ■ 

7852s IF 0=8 GOSUB 9498s 
GOTO 7858 

7868 s INPUT M AN. TRA=? • ü U 
SLPRINT V I AN. TRA= 
? I V 5U5 v r 

7y62s IF U =8 GOSUB 9498s 
GOTO 7868 

7865s RETURN 

7878 s INPUT v NB.SPI=? tf 5N 
SLPRINT "I NB. S P I = 
y I '' 5 N 5 v I 

7872s IF N=8 GOSUB 9498s 
GOTO 7878 

7875s RETURN 

7888 s INPUT V DI.FIL=? V 5D 


SLPRINT V I I 
? i v 5 b ; v i v s 


s büyüB 


K * 7 8 5 8 * D 4)s I = ( 1 6 * 
C)/(Jt*B rt 3) s RETURN 

3 2 8 8 s T = ( E * 16) / ( ïï * B 3 ) s 
RETURN 

8210 s H=233. 1-33. 72*B-1 . 
59*SQU B+3.22*B-3- 
. 68*BM+. 84*B-5s 
RETURN 

8228s H=258. 1-33.72*3-1. 
59*SQU B+3. 22*3-3- 
, 6 8 * B 4 + . 8 4 * B 5 s 
RETURN 

8258s IF B >=6.1 GOSUB 95 
28! GOTO 9538 

8252s RETURN 

8260s IF 14=1 bUyUB 82 lys 
LPRINT v ï ACIE 
R CPI I v : 

b u y ü B 9 6 y 8 


: RETURN 

: IF W=2 GÜSUB 8220: 
LPRINT *1 ACIE 
R CP2 I v : 

GOSUB 9608 
: RETURN 

: LPRINT *1 FL. I N I = 
P* GP r: LPRINT 
V I FL. TOT= P5FP 
I w : GOSUB 9230 
: LPRINT *1 NB. SPI = 
PiNP I*: RETURN 
: LPRINT *1 PA. MIN= 

r ; mp p: return 


I*: RETURN 

V I LG. ENR= 


: LPRINT V I LG. ENR= 

i*;ep i’ 

! LPRINT I LG. H. T= 

I " î J ï P 

: LPRINT V I LG. T. 1 = 
P 5 LP P': RETURN 
: LPRINT g I LG . DEV= 
P5LP P : LPRINT 
*1 AN. INI = PiFP 

r 

: LPRINT I AN. MAX= 
P 5 MP P : RETURN 
: LPRINT *'I CP.MAX= 
P5EP P': RETURN 
: LPRINT *1 DI . E. L= 
P 5 RP-' P': LPRINT 
*1 DI . E. 1= I*5XP 


9130: LPRINT "I BI.I.M= 
P'î PP P : RETURN 
9150: USING g #ît. r : PAUSE 
M ESSAI EN g ÏDP MM 

9160: USING •*#««**: 

pause m t*;tp z m ; 

Z: GOSUB 7000: 
RETURN 

9170: BEEP 1 : LPRINT V I B 
I . F I L= P 5 D P P: 
RETURN 

9230: LPRINT W I TX. INI= 
P 5 IP P -.LPRINT 
V I TX. MAX= P5TP 
I : RETURN 

9498: PR INT v MANQUE BONN 

EE* s RETURN 

9580: LPRINT M I ESSA 

I CPI P: 

GOSUB 9608: RETURN 
9518: LPRINT *1 ESSA 

I CP2 I v : 

GOSUB 9608: RETURN 
9520: LPRINT *1 HORS 
LIMITE P: 

GOSUB 9680: RETURN 
9526: GOSUB 7550: IF B$= g 
O’ GOTO 88 

9528: IF B$= V N M GOTO 953 
0 

9538: PAUSE *AU REVOIR*: 
ENB 


9540: USING : Q=. 

7-(T/H):S=.7-(I/H) 
: V=Q/S: V=ATN V.:Y=< 
V - 2 1 . 5 ) ••••’ (6.1 / 1 0 5 > 

9545: IF Y<=8 GOSUB 9520 
: GOTO 9538 

9550: IF Y >10*5 LPRINT g 
I BU. VIE > 10E5 
P : GOSUB 9680: 
RETURN 

9560: LPRINT g l BÜ.VIE= 
*ïYP P : GOSUB 9 
680: RETURN 


9580: IF B>=A/4 LPRINT * 
I B>BM: 4 ! 

P : GOSUB 9680: 
GOSUB 9528: GOTO 95 
30 

9535: RETURN 

9600: LPRINT »I 


RETURN 







D =0.4 

H =219.55 

D=2.3 

H = 170.21 

D=4.2 

H = 1 49. 1 0 

0=0.5 

H =216.21 

D=2.4 

H = 168.59 

D=4.3 

H = 148.35 

D =0.6 

H =212.91 

D=2.5 

H = 167.05 

D=4.4 

H = 147.51 

D =0.7 

H =209.67 

D=2.6 

H = 165.50 

D=4.5 

H= 147.68 

D =0.8 

H = 206.08 

D=2.7 

H = 164.21 

D=4.6 

H = 145.84 

D=0.0 

H =203.40 

D=2.8 

H = 162.90 

D=4.7 

H = 145.01 

0=1.0 

H =200.39 

D=2.9 

H = 161 .56 

D=4.8 

H= 144.17 

0 = 1.1 

H= 197.48 

D=3.0 

H = 160.48 

D=4.9 

H = 143.33 

0=1.2 

H = 194.82 

0=3.1 

H= 159.36 

D=5.0 

H = 142.52 

0 = 1.3 

H = 191 .89 

D=3.2 

H= 158.28 

0 = 5.1 

H = 141.71 

0 = 1.4 

H = 189.25 

D=3.3 

H = 157.25 

D = 5.2 

H = 140.91 

0=1.5 

H = 186.72 

D=3.4 

H = 156.26 

D = 5.3 

H = 1 30.14 

0 = 1.6 

H = 184.30 

D=3.5 

H = 155.21 

D = 5.4 

H = 139.40 

0 = 1.7 

H = 181 .98 

D=3.6 

H = 154.58 

D = 5.5 

H = 138.80 

0 = 1.8 

H = 179.76 

0=3.7 

H = 153.48 

D = 5.6 

H = 136.04 

0 = 1.9 

H= 1 77.65 

D=3.8 

H = 152.60 

D = 5.7 

H = 137.44 

0=2.0 

H = 175.63 

D=3.9 

H = 1 51 .72 

0 = 5.8 

H = 136.01 

0=2.1 

H = 173.74 

D =4.0 

H = 1 50.08 

D= 5.9 

H = 136.47 

D=2.2 

H = 1 71 .93 

0=4.1 

H = 1 50.03 

D=6.0 

H = 136.13 


IMPRESSION DES VALEURS DU POLYNOME 


B ( 0) =233 . 10 
B ( 1 ) =-33 . 72 
B ( 2 J = -1.59 
B ( 3 ) = 3.22 

B( 41= -0.68 
B ( 5) = 0.04 



mode ANGULAIRE 


Grignotons d'octots A vos M • 
rie monsieur GIRONDOT paiw 

sm Pl wr defiESERVEes, “«M: 

SHIFT A 

A:MID$ («DR G «, 7 AND PEEK&787C,!) 
MODE 

ENTEsTm b PreSSi0n des l0 " cl,es SHIFT A 

tm„ U m0( k an 9 u * 8,re employé Certains 
trouveront pauvre cet affichage monolettre. La 

listing 1 


"f? 8 " 1 rie coniraHre dons quel 

^n7pte' reBVeW,re 

SHIFT Z 

*“*■ «*«« 

enter ^ 

MODE 

S ^CfwTTjr ted ' awir 


™, o ,,,„ uêtrereve „ üenmSe7u 

CLS 

radian 

SHIFT Z 
2+3 

ENTER 9 

«2 + 3» est à présent répété au début dp la i e, 
jours «2 + 3 » 3 9 ne contenant tou- 

— "Srar-j; 


S; SÎ5? 


" Va! "s V*USING 
O-THETA, PHI 


UST1NG2 


© 1986H.FAUC0I 

neTsTrïuta f ^ 8 " e Semb,e P as fonction 
ur toutes * es versions de PC - 1 350 

LE CLUB 


?”ïENI» 


.->8^ 

103: IF ABS (G-S^ J lil f ~ 1 * F= 1 : L = O 
104* H =i, rH _j ):?=i NT ~if~ 9>,£A »S GRETURN 

■«•««s, 

120: G = G-" .ir ^GOSUB * l 02 ipp 1 ^7 ^ 1 PR INT ^R^g : END * + ^' 6 - 

- -"SS; "n, j-ehb 



*>0C FIGHT 


H,: , r listing m code 
g» »e vwn folie m w 

&ssë 

"to «nto Rom aux possession 

Une fois le programme entré en rnmme elvér,- 
le 9-aœ a»x tbecksums, sa,*.,» Jj,"' 
ave m .D-FIGHT» ; S4080, S5DBF P 
*D - (SrT 1 ^ la suite ' P» r “» CtOAD M 


16 i«* # ' ** a " ““k *** “ries 

»«fŒ e 4>wtots r 

SweJx 3 ; Aut •— d '** 

COMMENT JOUER 7 

Taper CALL &4080 ' 

Appuyer sur la touche [0 


HSSaa 

s *iSïit 



gratifie de points supplémentaires au score. 
Vous saurez tout quand je vous aurais dit que 
la touche[|gèle le jeu et quelle reprend. (Ouf !! 
ça fait du bien). Tand is que BRK l'arrête com- 
plètement Si un lBRKl fige l'écran, taper[Cjpour 
reprendre le contrôle de votre vaillant vaisseau. 
Comme d'habitude, il vous reste quelques sur- 
prises à découvrir et à affronter. 
Amusez-vous bien !! 

J.F.V. 


J ü :’1 P 

: 2 U b r 1 b H T 

( C ) 

I/O 

4 p ïh 

0 3 7 8 8 2 3 B E 2 8 2 2 4 1 8 : 5 0 

4888 

5F- 252 125C68885D s CE 

4 y 9 y 

825F34035 1 82B5E2 : A2 

4898 

9 7 y 3 b jj 8 2 y y L 2 B 5 2 4 * Ü 4 

48H0 

2b2r-yb!“2iji- { y 4 F 6 6 : 6 1 

48 A 8 

J b 1 y 4 b b b y 4 2 3 8 3 ô*B : 3 6 

48B8 

0S398D7945B68352 s 1 7 

48B8 

8235E297836B8288: 22 

48 C 8 

E2B5825F3424262F: A5 

48 C 8 

83FBBF83520295E2 : A3 

4 0 D 8 

97835F 823FE27B82 : 3B 

48B8 

8 h 3 4 2 4 2 b 2 r y 3 y A 8 2 : 4 B 

48 E 8 

9 0 0 y 0 3 1 E 1 8 5 F E B B 4 : 5 1 

48E8 

8 8 1 8 5 F E C B 4 8 Et 1 0i 5 F : 9 E 

40F8 

A08288083F 1 F734A : C2 

48 F 8 

5 ii 7 y 4 b b 3 7 y 4 5 h 3 7 8 : E 5 

4188 

46 1 97848BF 1 85FBB : 28 

4188 

368228181 1BBB604SB6 

4118 

2 y y 7 7 y 4 6 3 9 7 8 4 6 3 6 : 6 A 

4118 

7 y 4 7 1 B 7 y 47 L- 2 7 y 4 7 : 1 A 

4128 

b 3 7 3 4 8 6 8 1 0i 5 F B B B 6 : 33 

4128 

82238C 1 85FE098 1 A : 2F 

4138 

73495C7849E8734F : 85 

4138 

4B73587 1 784A8873 : 48 

4148 

4At27y byF9784E82 : B 5 

4148 

1 85FBBB6822856 1 1 : B 1 

4158 

BA576783381F1 IBS: BB 

4158 

d r 6 r y 4 3 y 1 y y 3 y 3 y 3 : 9 B 

4168 

45BA341 1 BA578382 : 9A 

4168 

y 3 4 b B H 3 4 4 b b y 2 F 8 3 : 16 

4178 

4EC82F 101 1B95767: F5 

4178 

8A380B83098345BA: FB 

4188 

344EFF2F831 1 B B B 6 s 75 

4 1 y y 

842334 185FEC341 As 59 

4190 

y 4 y 5 b 3 y 3 3 y y y 1 8 5 F : 9 E 


4198 EC841B2C30 185FBB: 31 
4 1 h 8 B5842C291 1E7B6FF5FB 
4 1 A 8 3886784FE82C1E1 1 : 48 
4 1 Btf B C 5 7 4 2 5 2 6 7 86 3 A 1 5 s 83 
4 1 B8 1 1 B AD683288F 1 1 B8 s E4 
4 1 ü y B 6 y 7 2 y y 9 1 1 B y B 6 8 F s B B 
4 1 C 8 28832C896B887E41 s 92 
4 1 B 0 827945B6185FBBB6: 96 
4 1 B 8 0 2 2 8 A B 0 8871 8 5 2 C 5 : 8 5 


41E8 9013185FA9901973! B8 
4 1 E8 4Ü 1 5 1 85FBBB68223 : AB 
41F8 87784B9778471B78: B3 
41F8 47C2784868784B8A: F6 
4 z y y i y 5 h B y B 6 y 2 2 y y u i y s 6 6 
4288 5 F E 8 9 8 1 A78495Ü78 : 7E 

421 y 4 ü B b 7 o 4 F 4 B 7 y 5 y 7 1 • b h 
4218 784A88785 1 B A7358 : 8B 
4228 F9784E82 1 85FBBB6 : El 

422 y y y 2 y 6 y B 6 y 2 2 y 2 9 B 6 * 97 
4238 8828551 1BA576783: A9 
4238 388B83028345BA34:lE 
4 2 4 y 4 L h F 2 F y 3 1 1 B 9 5 7 6 7 ■ 27 
4248 8A388B83898345BA s FB 
4258 344EFF2F832C291 1 : 19 
4258 E7B6FF3886784FE8: A9 
4268 2C1E1 1BC57425267: 89 
4268 863 A 1 511 BAB68328 : 4 1 
4278 8F 1 1B9B68F28891 1 ; 28 
4 2 7 y B B y b y y 3 y y 3 2 u y 9 6 B * 8 C 
4288 887E41E77945B618: 32 
4288 5FBBB68228E8B688: 78 
4298 28EB88810283SB8C5 B0 
4298 11 B 3 B 5 8 3 9 8 8 2 8 8 8 8 ; 5 3 
42A8 841E1 1A2921A92705 83 
42 A8 04937181 1 1A898 19s 63 
42B8 1 1A098 189378061 1 : 73 
42B3 A59819UA598 1893s 3F 
42C8 78061 1AA98 197843 s 9A 
42C8 BF185FBBB6822884; 8B 
42By 7 y 4 7 1 B 7 y 47 ü 2 7 y 4 8 : IB 
42By b«y 7y 4B2B 1 y 5 F B B B 6 s 72 
42E8 82288C 1 85FE898 1 A s 2F 
42E8 73495C7349E8734FS 85 
42F8 4B785071784A3073S 48 
42 F 8 4AE27858F9784E82SB5 
4388 185FBBB682283F1 1 s 9 A 
4388 3A576783381F1 lB8s BB 
43 1 8 57678438 1 8838383s 9B 
4318 45BA341 1 D A578382 s 9 A 
4328 3345BA344EC82F835 16 
4323 4EC82F181 1B95767S F5 
4338 8A388B83898345BAS FB 
433 y 3 4 4 E F F 2 F y 3 1 1 B o B 6 s 72 
4348 83383A2C291 1E7B6! 98 
4 3 4 y r r 3 y y 6 7 y 4 F y 82 y i t * 3 6 
4358 1 1BC57425267863AS 7F 
4358 151 1BAB683280F 11:21 
4368 B8B68728891 1 B 9 B 6 s A 6 
4368 8F2S032C096B837E: 68 
4378 42C67945B6 1 85FBB s C6 
4378 B682283C734B8478: FB 
4 3 y y 4 7 u 2 7 y 4 y 6 y 7 y 4 h 4 u s 3 B 
4388 7 8 5 8 7 1 7 8 4 A 8 8 7 3 5 8 s 4 3 
4398 F97y4E02ly5Fiî9Bb s BF 
4398 8F280F1 1BAB68328: 32 
43 A0 891 1 B C B 6 8 1 3 8 © 3 2 C s 34 
4 3 A y y 9 6 B y 8 7 E 4 3 7 ü 7 9 4 5 * 7”? 
43B8 B67343FB7940BE105 13 
43B8 5FE85743338A521 1 s 86 
43C0 E 6 0 28652794 8 E 9 8 3 : E 5 
43 C 8 6By2FüE27By2yy34s y 6 
43B8 835282B4E2825B34: 1E 


43B8 838884 1524784BBC s 41 
43E0 784E82827F344EFF: CA 
43E8 2F832F1B82873402S BB 
43F8 FF344EFF2F832F88 s E9 
43F8 794098035F829FE2 s 2E 
4488 7B68818B138B8F23: 68 
4488 8C022826824E2682: CC 
4418 4F262C 1E8A62FF283 B2 
4418 868228262C855974S 4C 
4428 38268B5958648F74; 79 
4428 38268B59648F7430S 51 
4438 26835282ECE2828A: 57 
4438 62FF2yy6yB63yb3A: BC 
4448 0 5 8 2852 C 8 2 5 9 8 3 8 8 s 9 6 
4448 8414248ABB633A38: C6 
4458 860228262C09823 1 s B6 
4458 268238262C0E62FFS 19 
4468 28868228262C0559: 88 
4468 743 8 26823 8 2683 6 B s 98 
4478 827EE27B82023483: IA 
4478 5F82A1E2825B3483S F8 
4488 88841 524734BBC78 s B6 
4488 4E82827F344EFF2F s 3 1 
4498 832F 1 B8289348352 s El 
4498 02BEE2825B348380S B6 
44A8 8415247 3 4 D B C 7 8 4 E s 8 4 
44A8 82827F344EFF2F83: 36 
44B8 2F1B827F344EFF2F: 7B 
44By y3y3bBy2FüE27B82s B8 
44C8 8534835282EBE282: BF 
44CS 5 B 3 4 8 3 8 8 8415247 3 s C 7 
44B8 4BBC784E82827F34: 86 
44B8 4EFF2F832F1B8282: CB 
44E8 34835F82A4E2825B: FB 
4 4 h y 3483 y y y 4 1 5 2 4 7 8 4 B s B 9 
44F8 B C 7 8 4 E 8 2 8 2 7 F 3 4 4 E s 87 
44F8 FF2F032F1B8A62FF: 66 
4588 332F594334828934S 76 
4588 78588B105FF2B628: 2 A 
4518 2814821734125F68: 5 A 
4518 81BF4E5861 1 1BF2F: FE 
4528 894EFF2C88821734S B7 
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amortissement 

p" # .ï S SSTJ Ce p- 


Il sera utile a toute personne désireuse de ven- 
dre ou d acheter un matériel quelconque Et 
ceci en tenant compte de la dépréciation de 
celui-ci, au cours des années d'utilisation II 
peut egalement servir à une entreprise ou à un 
artisan, qui veut savoir de combien par an il 
devra amortir un matériel acquis neuf. Ce qui 

permettra d'évaluer sa valeur de revente à un 
instant donné. 

Exemple : 

Vous avez achBté une voiture 25 000 F (nas 
de publicité !). Celle-ci perd malheureusement 
pour vous, de sa valeur au cours des ans II 
vous faut connaître sa valeur réelle dans 5 ans 
Sachant que vous l'avez achetée le 1« Mars 
986, il vous reste aujourd'hui 10 mois pour 
finir I annee en cours (moment où j'écris ces 
lignes). A partir de là vous pouvez choisir de 
I amortir linéairement (voir ex.) et l'annuité est 
onstante chaque année, ou alors user d'un 
amortissement dégressif; la valeur nette 
comptable de fin devient celle de début. 

Mode d'emploi : 

Date' acquisition : 1/3/86 
Valeur d’acquisition : 25 000 F 


Durée probable d'utilisation : 5 ans 
Nbre de mois pour la 1« annuité : 10 mois 
Les résultats figurent sur le listing exemple 

Dégressif* 8 ^ :Lp0Ur linéaire ' D pour 

Abréviations : 

V.hl.C. Débuts Valeur Nette Comptable de 

début ou valeur d'acquisition 

Année Achat = Date de départ de l'Amortisse- 

Nombre de Mois=Pour la première Annuité 
Duree = Duree probable d'utilisation 
lx Line -Taux Linéaire 

liné ® ‘ Coeffcie "> lseta 

* 1 . 5 < 5 ans 

* 2 5 ou 6 ans 

* 2.5 > 6 ans 

(Linéaire) Base = valeur d'acquisition 

Annuité = annuité ou valeur amor- 
tie pour l'année en cours 
In , . V. N. C. = valeur de fin d'exercire 

egressif) Idem ci-dessus, hormis que la 

V-N.C. de fin devient celle de 
début. 


fc y 0 0 ï 
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608.7: IF - BU<5 LET T2=ti ^ 

;ï ’ l ‘ ULS ; NAIT 8; 

1.5 

U L t A R 

6883; IF DU=5 OR Hü=6 

* p * 1 =’• ■ ' H d’* o r 1 1 s s e i'ft e 

LET TB=TL*2 

nt"; PRINT - ! 

b8yy;iF BU >6 LET TB=3 l* 

m . pp lN T , 

2.5 

Linéaire '? • ; 

68185 CLS ; CURSOR 8,i; 

r' K i im T ‘‘ Des res* i ? 

PRlNT '-‘Tau . ï Lin 

■~>K< ~ ’ 

^ÜSING v lî$îr.ltS^T 

' Chll S: 1284; P£= 

L.ï " GOTO 6844 

FbhK &6F57 

6 8 1 1 ; B t N b I M A N ( B U + 1 ) 

: IF PE=6S GOSUB !f TT 

^X(Bü) ? VD(Bü+l), y 

gosus v 

F(BU+i); RETURN 

T /< M ; G 0 S ü B D J m * 

68 1 2 ; LN M AN < 1 > =BA^TL/ 1 0 

GOTO " FN v 

8 * fl 0 / 1 2 ; C ü = 0 U -i- A N < 1 


1 ' i,s VF<BU+i>=Eft-cu 
t.0I5: FOR K=X TO dU+Iîdt 
= 2T+1 : CLS 
601 6 ï PR INT "Arm** 

STR* HT 

6018: PRINT -Début »s 

using "tnntn.n 

' ! £’A 

60208 PRxht "Anuit »; 
ÜSING ''83888883. lit 
' 5 ANtK) 

PRINT -y.n.c. 
jjSING ''33888883.83 

L--ALL 1284 
IF VF(K)=0 goto -C 

: NEXT K: GOTO "C' J 

V-n.c, Début fs#, 
"Année Achat - * BT 
9 "'Nombre Nois -Tm 


6821 


6822 

6023; 

6824; 


6025 

60 : 


6823 

6829 


6839 

6831 

6832 


6833 

6834 

6835; 

6836 ï 
6833; 

6848 

6841 1 


6842; 
6843; 
6844 ; 


’IHPIJT * Duree 
» RETURN 

v D6 , - , an<i)=ba*ti)/îa 

8 * M O 1 2 ; C U = C U + A N < î 
l\ ;VD<l)=SAïVFCl)=v 

il i 1 .) - A N (l ) 

’FÜR 1=2 T Q Tjj; 

Td>=FK(l) LET ^ 

= V ü <; J ) * t ri 1 0 g . q y = ... 

ü + AN ( I } :'VF ( 1 ) =VD ( î 
>-AN(I> 

:IF TIKFK(I) LET DP 
= 1-1 s GOTO 6833 
NEXT 1 

v FX*Pû=BU+i : FOR y 

BU; po=pq-i ï p 
-'■= •• f = 1 tJ U / p 0 ; H E H T 
Vî 60 TG V BG V 
■■FOR T=I TO BUiANCT 

>=ŸF<DE)/<I)U-DE> 

: VB ( T ) = VF ( T - 1 ) : C!j =n 
U+AN(T) : ÿF<T)»VB(t 
>-AN(7) 

iNEXT T: FOR N=: 

TO 3U:37=DT+l : 

U LS 

PR INT 11 Armes 
> STR* BT 
^PINT -V.n.c. Des 
'* -'S ING * 88888888 
. W'I VB<N) 

SPRINT "Annu i t 

'■'? us ing ’tmtnt 

. 88“ j AN(N) 
rRlNT "V,n.c. Fin 
US ING "38888838 
. 38 - i VF ( N ) 

LhlL & 1 2 0 4 
NEXT N; GOTO '* 
fRINT "Tau* "ses <■ 

’ CSING "838.88'’! T 


6 8 4 5 ; 


6804: IF PE<>68 GOSUB "T 


) : VF ( 1 >=3A-CU 


UALl Si 1 294 î 
RETURN 




TABLES 

TRAÇANTES 

♦ 


Vous êtes maintenant nom- 
breux à posséder cette mer- 
veille de précision mécanique 
que sont les tables traçantes MZ 
1 PO 1 ou 1 P 1 6. Pour exploiter 
tous leurs talents, il ne leur 
manquent que vos program- 
mes... 

EVASION a un petit goût de vacances que nous 
vous laissons découvrir. Son avantage est d'ex- 
ploiter pratiquement toutes les commandes 
graphiques du basic spécifiques à la table tra- 
çante. Son étude détaillée vous permettre de 
réaliser vos propres créations graphiques... et 
de nous en faire profiter. 

MODULO démontre une fois de plus qu'il est 
possible de faire beaucoup en très peu de lignes 
de basic. Ce programme est tiré d'un excellent 
ouvrage qui vous permettra de créer des dizai- 
nes de dessins de ce type sans aucun problème 
d'adaptation. 

DESSINS GEOMETRIQUES ET ARTISTIQUES 
SUR MICRO-ORDINATEURS 
Auteur : Jean-Paul DELAHAYE 
Publié aux éditions EYROLLES. 



10 7 SHARP MZ 700 JARROT D. 7/85 
12 7 

15 A*^'**********###*# EVASION **##### 

22 G0S0B3000: 7 cadre 

23 7 1er Bateau 

25 X I =240 : Y I =-360 s A=20Û : B=50 
30 TD= 1 80 : TF=330 : N=30 

35 X0=420: Y0=-400: L=30 

36 0=80: C=0 
40 G0S0B2 1 00 

42 7 On met les voiles 

45 X 0=230: Y0=-360: L 1=300 
50 L2=200 : U 1 =90 : U2= 1 70 ! C= 1 
55 N=30« C= 1 
60 GDSUB2000 

65 X0=380: Y0=-375: Ll=150 
70 L2=320:U1=160:U2=115 
75 N=30ï C=3 
80 GQSUB2000 
82 REM Vagues. 

85 XD=25ï YD=- 410: XF=450 
90 A= 1 0 s D= 1 0 ï C= 1 
95 G0SUB2306 

100 7 **## MOUETE ***# 

1 04 X 0=400 : Y0=— 1 00 : AD=90 

1 05 AF= 1 80 ! R=30 : C=0 
110 G0SUB2406 

115 X 0=4 10: Y0=— 1 10: AD=100 
120 AF= 1 70 : R=40 : G0SUB2406 
125 X 0=350 : Y0=- 100: AD=0 
1 30 AF=90 : R=20 : G0SUB2406 
135 X 0=340: Y0=— 1 10: AD=5 
140 AF=85: R=30: G0SUB2406 
145 X 0=1 50: Y0=— 130: AD=90 
1 50 AF= 1 80 : R=25 : G0SUB2406 
155 X0=160: Y0=-140: AD=95 
160 AF= 1 75 : R=35 : GQSUB2406 
165 X 0=1 10: Y0=-140: AD=5 
1 70 AF=90 : R= 1 5 : G0SUB2406 
175 X 0=1 05: Y0=-145: AD=5 
1 80 AF=85 : R=20 : G0SUB2406 
185 X I = 1 00 : Y I =-260 : A=60 : B=20 
1 90 TD= 1 80 : TF=330 : N=20 
195 X 0=1 65: Y0=— 285: L=10 
200 U=80 : C=0 : G0SUB2 1 00 
205 X 0=1 00: Y0=— 265: Ll=90 
210 1.2=60: U 1=90:02=170 
2 1 5 N =20 : 0=2 : G05UB2000 
220 X0= 1 50 : Y0=-270 : L 1 =60 
225 L2=95: 01=160:02=115 
230 N=20: C=3: GOSOB2O0O 
240 XD=25: YD=-290: A=10: D=10 
245 XF= 160: C= 1 : G0S0B2306 
250 XD=230: XF=310: G0S0B2306 
255 XD=355: XF=455: G0S0B2306 
260 XD=370: YD=-350: G0S0B2306 
280 X0=90: Y0=-50:N=18: A=4 
285 DIM TX (N) , TY(N> 

290 FOR 1=1 TON 

295 TX ( I > =3# I : TY ( I > = A#SIN < I ) 

300 NEXTI 

305 01=0: 0F=340:D0=20: 0=3 
320 G0S0B2515 

325 PHOME: 7 **** CERCLE ***# 

330 F0RT=0T02*PAI (1) STEP .1 
345 X=20*C0S(T> : Y=20*SIN(T> 

350 IFT=OTHEN MOVEX , Y: G0T0355 
352 LINËX, Y 
355 NEXTT 

360 M0VE-90 , 50 : IHSET : MODETN 

370 SK I P20 : SK I P5 : END 

2000 7 Enveloppes dans 1 7 angle 

2010 7 Conversion degres-radian 

20 15 01 =PA I < IJ 1 ) / 1 80 : Ü2=PA I < 02 > / 1 80 

2025 P1=L1/N;P2=L.2/N 

2030 R 1 =0 : R2=L2 : PCÜLORC 

2035 FORI=OTON 

2040 Xi=XD+Rl*C0S(01> : Y1=Y0+R1#SIN (01 > 

2045 X2=XG+R2iKCGS(02) : Y2=Y0+R2#S IN (02) 

2050 MOVEX 1,Y1 

2055 LINE X2,Y2 

2060 R 1 =R 1 +P 1 : R2=R2-P2 

2065 NEXTI 

2070 RETORN 

2100 7 Envel oppe=segment=arc ellipse 
2120 0=0*PAI ( 1 ) / 1 80 : TD=TD*PAI ( 1 ) 

/ 1 80 : TF=TF*F‘A Kl) / ISO 
2130 P=L./N: DT= (TF-TD) /N:R=0:T=TD 
2135 PCOLORC: MODEGR 
2140 FDRI=0T0N 

2145 X=XÜ+R*C05 (0) : Y=YO+R#SIN (0) 

2150 XE=X I+AfcCOS (T) : YE=YH-B*SIN (T) 

2152 7 

2155 MOVEX, Y:LINEXE, YE 
2160 R=R+P:T=T+DT 
2165 NEXTI 
2170 RETORN 


2220 T1=T1#PAI ( 1 ) / 1 80 : T2=T2*F'AI ( 1 ) /1B0 
2225 V1=V1*F'AI (1) /180: VE=VE*PAI (1) /180 
2230 PCOLORC 

2240 TD= ( T2-T 1 ) /N : DV= ( V2-V 1 ) /N 
2245 T=T 1 : V=V1 
2250 FORI=OTON 

2255 X=XO+AI*COS(T> : Y=Y0+B1*SIN(T> 

2260 XE=XI+A2*C0S(V> : YE=YI+B2*SIN(V) 

2265 MOVEX, Y 

2270 LINEXE, YE 

2275 T=T*DT: V=V+DV 

2280 NEXTI 

2285 RETORN 

2306 PCOLORC 

2310 FORX=XDTOXF STEP4 

2320 Y=YD+A#SIN(X/D) 

2330 IF X=XDTHENMOVEX , Y : G0T02340 

2335 LINEX, Y 

2340 NEXTX 

2350 RETORN 

2406 PCOLORC 

2410 AD=AD*PAI ( 1 ) /180: AF=AF*PAI (1) /ISO 

2420 FORT=ADTOAF STEP . 1 

2430 X=XO+R*COS (T> : Y=YO+R*SIN <T> 

2440 IF T=ADTHENMQVEX , Y: G0TQ2450 
2445 LINE X,Y 
2450 NEXTT 
2460 RETORN 

2515 ÜI=OI*PAI (1) /180:0F=0F#PAI (1) 

/ISO: DO=DO*F'AI ( 1 ) /I 80 
2520 MOVE X0,Y0SHSET: PCOLORC 
2530 FOR 0=01 TO OF STEP DO 
2535 FOR 1=1 TON 

2540 RO=SQR (TX ( I > *TX ( I > +TY ( I ) #TY ( I > > 
2545 IF (TX ( I ) =0) * (TY ( I ) >0) 

THENPHI=PAI ( 1 ) /2 
2550 I F ( T X ( I ) =0 ) * ( T Y ( I > < 0 ) 

THENPH I =— P A I ( 1 ) /2 

2555 IFTX ( I ) >0 THENPH I=ATN (TY < I ) /TX ( I ) ) 
2560 IFTX ( I ) < OTHENPH I = ATN ( T Y ( I > /TX ( I ) > 
+PA 1(1) 

2570 X=RO*CQS(PHI +0) 

2575 Y=RO#SIN (PHI+O) 

2580 IF I=1THENM0VEX, Y: G0T02585 

2582 LINEX, Y 

2585 NEXTI 

2590 NEXTO 

2595 RETORN 

3000 7 *## Cadre #** 

3005 MODEGR : MOVE 12,0: PCOLORC 
3010 F0RI=0T03 
3020 GPRINTC 1 , I 3 , A$ 

3025 NEXTI 

3030 M0VE405, -440 

3040 GPRINTC 1,0 3," J. D" 

3050 RETORN 


20 MODE GR : MOVEO « —900 : HSET : NF'=480 : 
PI=ATN ( 1 ) *4 

30 N=400 : M=N : K 1 =4 : K2=2 : H=2 
40 DIM X (N) , Y (N) 

50 FORI=OTON 

60 X (I)=INT(NP*.5* (1+SIN(K1#I*PI/N> ) ) 

70 Y(I)=INT(NP*.75* ( 1+COS <K2*I*PI/N) ) ) 
80 NEXTI 
90 FORI=OTOM 

1 00 11 = 1 ~N* I NT ( I /N ) : 1 2=H# I -N* I NT ( H# I /N ) 
110 MOVEX (II) » Y ( 1 1 ) 

120 LINEX (12) , Y (12) 

130 NEXTI 
140 END 


CALC 700 


Il manquait un tableur à la pano- 
plie des logiciels utilitaires ae nos 
MZ. Cettelacune est maintenant 
comblée avec CALC 700, une 
feuille de calculs électronique qui 
n'a rien à envier à ses ainées du 
type « CALC » ou « PLAN ». 


CALC 700 est un tableur universel capable de 
résoudre toutes sortes de problèmes mathéma- 
tiques, commerciaux, technique ou de gestion. 
Aucune connaissance en informatique n'est 
requise pour exploiter pleinement ses possibi- 
lités. Le programme fonctionne sur MZ 700 ou 
800, sous S. BASIC (BASIC MZ 1Z013). 

CALC 700 possède la même structure que ses 
grands-frères du type CALC, sa rapidité de trai- 
tement le situe également au niveau des meil- 
leurs. Son rôle consiste à gérer un tableau de 
données composé de cases rangées en lignes 
et colonnes. Ces cases peuvent être reliées les 
unes aux autres par différents calculs arithmé- 
tiques. L'intérêt majeur d'une telle feuille de cal- 
culs vient du fait qu'une même opération peut 
permettre de traiter simultanément et à volonté 
un nombre important de groupes de cases dif- 
férents. Il est également possible de répercu- 
ter une suite de calculs effectués sur un ensem- 
ble de cases sur d'autres ensembles du même 
type (Modélisation). 

Chaque case ou groupe de cases peut être indi- 
viduellement sauvegardé ou imprimé. La sau- 
vegarde est initialement prévue sur cassette ; 
une adaptation disquettes reste possible 
moyennant l'adaptation des routines 
d'enregistrement-lecture des fichiers. 


LES COMMANDES DE CALC 700 

T : Affiche les 1 7 premières lignes à 
l'écran. 


B : Affiche les 17 dernières lignes à 
l'écran. 

SH : Déplacement de colonne affichée, pro- 
voque la demande du numéro de 
colonne. 

SR : Déplacement de 1 colonne vers la 
droite. 

SL : Déplacement de 1 colonne vers la 
gauche. 

Z : Déplacement de 1 ligne vers le bas. 
L : Effacement total et redéfinition. 

LD : Effacement total sans redéfinition. 

50 : Tri d'une colonne. 

SA : Sauvegarde des données sur cassette. 
LO : Lecture des données sur cassette. 
HC : Recopie d'écran sur imprimante. 

W : Entrée des données d'une colonne. 
S : Donne la somme des données d'une 
colonne. 

N : Donne un nom à une colonne. 

VZ : Modifie le nombre de colonnes à 
l'écran (de 1 à 6). 

VW : Changement d'une donnée. 

RR : Remet le tableau à jour après les com- 
mandes VW, W, FE (Répercution sur 
toutes les données calculées). 

FE : Entrée d'une formule de calcul des 
données d'une colonne, le résultat cal- 
culé est inscrit dans la colonne deman- 
dée (x). 

La formule se compose de 1 ou 2 opérandes. 

Pour une opérande, 3 possibilités : 

• Un nombre... Il s'inscrit alors sur chaque 
ligne de la colonne indiquée (x), 

• S + No. de colonne (ex.Sn) porte la somme 
des données de la colonne n dans chaque 
ligne de la colonne indiquée (x). 

• ZS + No. de colonne (ex.ZSn) Porte, à 
chaque ligne de la colonne indiquée (x), la 
somme des données des lignes depuis la 
colonne n jusqu'à la colonne x - 1. 

Avec 2 opérandes, le format est : 
Opérande 1 : 0pérande2 : Opérateur. 

• Le premier opérande ne doit pas être une 
valeur numérique mais S+No. de colonne 
ou K + No. de colonne (Sn ou Kn). 

51 la lettre est S, la somme de la colonne n 
est prise comme donnée à chaque ligne. 

Si la lettre est K, chaque donnée de la 
colonne est prise pour la ligne 
correspondante. 

• Le second opérande peut être une valeur 
numérique ou Sn ou Kn. Le résultat inscrit 
sur chaque ligne de la colonne indiquée x est 
le résultat donné en appliquant l'opérateur 


entre l'opérande 1 et l'opérande2. L'opéra- 
teur peut être l'un des 4 signes d'opération 
arithmétique de base + « » (élévation à la 
puissance) ou «%» ; ce dernier calculant la 
différence entre Opl et Qp2/0p1. 

STRUCTURE DU PROGRAMME 

240-250 Permet de donner un nom à un fichier 
de données lors de la lecture ou l'enregistre- 
ment de ce fichier. Cette routine pâlie un défaut 
du BASIC K7 du MZ 700, elle est à supprimer 
en cas d'utilisation de disquettes. 

410-480 Initialisation des variables. 

460-600 Initialisation écran et entrée des 
commandes. 

610-840 Partage des taches aux différents 
sous-programmes. 

860-1010 Entrée des données dans la case 
signalée par un « * ». 

1030-1220 Demande du nom d'une colonne. 
6 caractères maximum, les autres seront 
ignorés. 

1240-1320 Sous-programme de somme de 
colonnes affecté aux variables Q (N.C). Si la 
colonne est affichée, impression à l'écran. 
1340-1370 Demande et affiche le nombre de 
colonnes à l'écran. 

1380-1560 Sous programme de modification 
de valeurs dans une colonne. Si une formule 
existe déjà, une confirmation est demandée. 
1580-1630 Entrée du N° de colonne. 
1690-1930 Déplacement de la fenêtre écran. 
L'exécution reprend à cet endroit après appui 
sur la touche F3 (Réinitialisation). 

1950-2010 La formule entrée est directement 
prise en compte pour les colonnes respectives 
(Sous-programme en 2060). 

2100-2220 Nouveau calcul sur toutes les 
colonnes. La ligne 2130 vérifie si seules les 
données (pas les formules) sont prises en 
compte. 

2240-2880 Calcul des formules. La ligne 2270 
vérifie que la formule entrée ne compte qu'un 
seul chiffre. Les formules à 2 opérandes seront 
calculées à partir de la ligne 2460. 
2600-2680 Saut d'une ligne vers le haut et affi- 
chage des valeurs de la dernière ligne. 
2690-2790 Affichage de la colonne suivante 
appelée par « Z ». 

2810-2890 Effacement des données, mais pas 
des formules. Pour éviter toute erreur d'inter- 
prétation, les valeurs ne sont pas mises à 0 
mais à 0.0001. 

3070-3200 Recopie d'écran par lecture du 
code écran et conversion en code imprimante. 


S' 


3220-3400 Sauvegarde et lecture des formu- 
les et données d'un tableau sur cassette. Les 
commandes de gestion de fichier séquentiel 
devront être modifiées pour une utilisation avec 
disquettes. 


Ce programme, tiré et traduit d'une revue alle- 
mande est utilisé sans problème depuis plu- 
sieurs semaines par notre Sharpentier traduc- 
teur et lui donne entière satisfaction. N'hési- 
tez pas à expérimenter toutes les commandes 


de CALC 700 ; avec un minimum d'expérience 
vous pourrez rapidement exploiter les nombreu 
ses possibilités de ce tableur. 


* * # # * # * * * * # * * * * * * * * * * * * * * 3k # # * 3k 3k 


Î3, 252, ü: 


205, 200, ;; 


h P ! P R (...) b' P A 14 11 E TA B L. E U R p o u. r li I 7 3 1 
240 F'OKE 1 824 2 , 205 s PGKE 1 0252 , 1 75 
250 PGKE .1. 8 1 67 , 205 , .1. 53 , 48 : F'OKE .1. 244 .1. , 1 7 , 1 1 , 67 , .' 

2 6 0 . G L S : G L R : 0 N E R R G R G G 'T' G 3 0 4 0 
280 CURSDR 5,5:: PE I NT II 0 , 6 .'] " G A L G 7 0 0 " 

290 CLIRSGR 5 , 6 s PR I NT C 0 , 6 .'] " H . R " ü CNRT ( 'T AO ) S CHR$ < % AE ) 5 " npr I 984 

3 O 0 G U R S 0 R 5 , 7 : P R I IM T C 0 „ 6 1 1 ' T e 1 0 2 4 O 2 / 6 .1. :i. 8 ' ' 

3:1.0 G U R 3 G R 1 , 1 4 ï PR INT "DEFINISSEZ VOTRE FEUILLE DE TRAVAIL" 

2:2C:- PR I NT :: PR I NT " APPUYEZ UNE TOUCHE S . V „ P . " 

330 GET I$:IF 1$="" THEIM 330 
340 CL B 

3 50 FR 1 NT i: 0 " 6 :l " DEF :i: 1x1 1 T I ON DE LA FEU I LLE DE TRAVA I L " ï SPC ( 5 ) 

u L, U R S U R 2 1 , 2 s F‘R .1. N f " „ " s CURSORO , 2’ s I N P U T " Nombr e de liqnes ? 1 

I F * IM .1 < 1 > + C IM J. >99 > GGTG340 
370 CURSDR 2:1. , 4: PR INT' 

( M< 1 ) + ( M >99 ) THEIM CLIRSGR 
380 CURSOR 2 T , 6 : PR I NT " 


î N 1 1 > s N . 1 . - VAL ( IM 3. ) Ï 


col on h es 


" ï M* :: IM-- VAL. ( 14 1 ) s I F 


■/ C 3. # s G 3. — VAL. ( G 3. % ) : 


, E) :: I IM F' U T 1 1 IM o m d e I a t e u i 1 1 e d e t. r a v a i 1 


-INT ■ 


17/(3 1 ) +2) 


s NEXT 


1 :: CURSDR 0 , 4 : 1 NPUT " IMomb r e d e 
2 1 , 4 2 PR I NTSF’C ( 9 ) : GGTG370 
1 a G U R S Ü Fï 0 , 6 2 I N P U T 1 1 C o 1 o n n e b a 1 e t::: r a n 
1 F c 1 < 1 > + < c 1 >à i + C 1 >11 ) THEN CURSGR2 1 , 6 ï PR I NT SPC < 9 5 :: G0TÜ330 
390 CURSGR 21 , 8:: PR INT" .. CURSDR 0 
F AN$=" . " THE N AN$- " " 

400 CL. S :: ON ( IM 3. * 14 >}: 6 >S I Z E ) GO TO 350 : N-IM 3. + 3. 

4 3. O D I M C < 14 ) , F $ ( M ) , NT < 14 ) , 0 ( N , M ) , V < 255 ) 

420 FOR I =0 TO 255 :; RE AD V C I > s IMEXT:: RESTORE 
430 FOR 1 = 1 T G 11 :: F#> < I ) = " -s NEXT 

440 DE:-: F FIMQ ( Fl* , C ) ::::: I NT ( Ü ( R’ , C > * 3. OO -i - . 5 } / ;|. 00 
450 I $= " " :: T‘=0 ï BR=40 
460 FOR V— 3. TO Cl 
470 C ( V ) ::::: ( V * I NT ( BR /G 1 ) 

480 NEXT' 

490 IF I$="VS" GOTO 1740 

50 O J — O :: K — 0 s S — 0 

5 3.0 ON ( I $ = ' 1 T" " ) G 0 T 0 3. 7 4 0 s L — N 3. 

520 S— 0:: IF' L. >17 THEIM !....= 3. 7 

530 CLIRSGR O, 3? FOR 1-3. "!"0 L.: S=S+ 3. ï'PRINTCHR* (20> S S.ï IMEXT 

550 REM**ENTREE DES COMMANDES** ******************** ik*** ' 

570 CURSGR 0 , 0 : PR I NT II 0 , 6 T " COMMANDE ? " IM 3. ; " i....:i. cries " ! " " ; 14 ; " Cnl ormes 

530 CURSOR 0 , 3. s FOR I = 0 TO 39 : PR I NT " = " ï s NE X 'ï' 

590 FOR G - 3. TO Cl :: CURSOR (G* INT (BR /G 3. > > I NT ( 2 3. /G 3. ) , 3. : PR INT " C"SC "I" 5 " 

600 IF I$=="LD" GGSUB 3.150 

6.1.0 bUBUB 3. 6 7 0 :: I IM F’ U "I" 1 ’ F o t r e c; o m en a n d e ? " I $ 

520 ON ( ï#-" " ) GOTO 6 1 0 :: GOSUB 1630 

6 3 0 I F r ( I $ - ’ ’ T' 1 ’ ) * ( IM 3. < 1 8 > + ( I if. = "B" ) * ( IM 3. < 1 8 ) G 0 T" 0 5 7 0 

" B "GOTO 3. '730 ; A f f „ 3. 7'der n , 3. i gnes 
" 1 "G0T05002 Af f „ 1 7 prem. lignes 

"SL " GOTO 1 720 ï ? f de 3. colonne 

" SîR" GOTO 173. Os ? ■> de 1 colonne 

"SH" GOTO 3. 900:: Dep 1 a/choi >: /col „ 

" / " bOT'02690 ; 4 de 3. ligne 

700 I F I. '$ 1 1 S G "GG T 0 2 9 3 0 :: T r i 

73.0 I F I " FE " GOTO 3. 970 s Entree/f ormul e 
"RF:"G0T021 20>“ >' IT'epercut /'resul „ 

"S"GGT01260ï ? Somme /colonne • 

"W:"G0TG880:. 3 Entre© .donne© 

"N "GOTO 1 050 ï Nom de colonne 
" Vs " GOTO 3. 360 :: : 'IMb„ /"cal orme af f 
' ' l 7 W ' ' G Ü T 0 1 4 1 0 s '' G o r r e c t :i. o /' d o n n e e 

/80 1 F I$-"(....D"G0TG2830ï " Ef -f ac /données 
790 II- .1. ;f="L "G0T024ÔÏ face /total ■h'-edefi n :i. t i on 

I F" I ff ~ " HC " GGT'03 3. 60 :: Cap i e / :i. mpr i m „ 

IP l$="SA”G0T03240s Sauv. donn. ,/cass.- 
IF 1 " LG"G3GT03340s Lect . donrt. Vcass. , 

830 IF I.$=."0" THEIM STOPs 7 Fin du progr, 

840 GOTO 570 

860 3 ENTREE DES DONNEES 
880 GOSUB 3.600 

890 CURSOR O, Os PR INT CO, 6 1 " ENTREE DES DONNEES 
900 V-C-i-Tï < G ) = " Z AHL " 

910 FOR R=1 TO NI 
920 R1=R-K:IF R Kl GOTO 940 
930 CURSOR G (V) ,Rl+2s -PR l'IMT"*" 

940 GGSUB 3. 670 > 1NPUT" Donnée ? " ? NT 
950 IF Wïf-"„ " GOTO 940 
960 Ü (R, C) =VAL CW*) : IF RK l GOTO 3.000 
970 GOSUB 3.660 

980 I F ( R 1 > 1 6 ) * ( R< IM 3. > THEN CURSOR 0 , 20 s PR I NT SPC ( 40 > ; 

990 CURSOR 0,21 SPRINT SPC (40) « 

3.000 NEXT R 


640 I F' I $>■■■■-- 
650 I F” I if 
660 I F* I $- 
6 "70 IFI*= 
680 IFI*= 
690 I F I * = 


720 I F- I 
730 IFIîf = 
740 IFI$= 
750 IF 14 = 
760 IFI*= 
770 .1 F I îf 


800 
8 3. 0 
820 


s GOSUB 2620 


1010 ON (Tl >16) GOTO 1740s GOTO 57 O 

1030 ' NOM DE COLONNE 

1050 GO SU B là 00 
1060 V=C+T 

1 070 CUESOR 0 , 0 s PR I NT il 0 ,63" NOM DE LA COLONNE " ; SPC < 23 > : CÜRSDR 1 7 , 0 s PR I NT C 0 , 6 II 0 ;; CU 
R S 0 R 2 4 1 O s P R I N T C 0 6 ] ' 1 m a . 6 1 e t 1 r e s ' ' 

1080 GOSUB 1670 s INPUT"Nom ? "3lMS(C) 

1090 IF N* < C " GOTO 1080 

1 1 00 I F LE! N ( N* ( C > ) >6 THEN N* ( C ) -LEFTS ( NS ( C ) , 6 > 

1 1 1 0 I F ( V< 1 ) + ( V >C 1 ) GOTO 570 

:i. 1 20 C URB OR 0 , 2 s PR I NT SPC ( 2 ) s CURSOR C ( V > , 2 : PR I NTSPC ( 6 ) s CURSÜR C Ü V ) , 2 s PR I NT N* ( C > 
1130 GOTO 570 

1 1 50 CURSOR: 0 h 2 s PR I NT SPC; ( 40 ) 

1160 FOR C=1 T TO Cl -T 

1170 IF C=M RETURM - 

1 1 80 I F LEFTS ( NS ( C ) , 2 ) = " " GOTO 1 2 1 0 

1 190 V=C+T 

1 200 CURSOR C ( V ) , 2 : PR I NT N* < C ) 

1210 NEXT C 
1220 RETURM 

1240 ? SOMME D'UNE COLONNE 
1260 GOSUB 1600 

1270 v-c+t 
1280 Q (N, 0=0 

1 290 FOR R = 1 TO N 1 : Q ( N , C > =Q ( IM , C ) +Q ( R , C > s NE X T 
1 300 I F (V< 1 ) + < V >C 1 ) GOTO 1 320 

1 3 1 0 CURSOR C ( V ) , 20 : PR I NT SPC C 6 ) s CURSOR C < V > , 20 s PR I NT FNQ ( N , C ) 

1320 ON — < I S= "RR" ) GOTO 221 Os GOTO 570 

1 3 4 0 C H A N G E N b c a 3. a n n e / e c r an 

1 360 CURSOR 0 , O s PR I NT C 0 , 6 3 " NOMBRE DE COL » a 1 ecr an " ü SPC (6)5 " ma:-; . 6 " SPC C 4 > 5 

1370 GOSUB 1610: Cl =Cs GOTO 460 

1390 CORRECT I ON D'UNE DONNEE 
1410 XS- 11 J " 

1420 GOSUB 1600 

1 430 I F ( LEFTS (F S ( C > , 2 > < > " " > * ( F* ( C > < > " Z A HL " ) THEN CURSOR 0 , 0 ! PR I NT C 0 , 6 3 " CH ANGEM 

ENT DANS COLONNE CALCULEE ? <0/N) " s s GOTO 1450 
1440 GOTO 1470 

1450 GOSUB 1670: IIMPUT" Réponse ? ";X$ 

1460 IF X$<>"0" GOTO 570 

1 470 CURSOR 0 , O s PR I NT C 0 , 6 1 " N - de L I GNE " 3 SPC ( 29 ) 

1480 GOSUB 1670:: IMPOT "Numéro ? " ï R* 

1 490 R— VAL. ( RS ) s I F ( R< 1 ) + i R >N J. ) GOTO 1 480 
1500 R1=R-K: V=C+T 

1 5 1 0 CURSOR 0 , 0 s PR I NT C 0 ,63" NOUVELLE VALEUR " 3 SPC (25)3 
1 520 GOSUB 1 670 : I IMPOT "Dan nee ? " 5 Q ( R , C ) 

1530 F*(C)="ZAHL" 

1 540 I F ( V< 1 ) + ( V >C 1 ) + ( R 1 < 1 ) + ( R 1 > 1 7 ) GOTO 1 560 
1550 GOSUB 1660 

1560 ON- ( Q CM, C) < >0) GOTO 1280 : GOTO 570 
1580 ENTREE' N ° COLONNE 

1 600 GOSUB 1 630 s CURSOR 0 , Oï F'RI NT II 0 , 6 1 " NUMERO d e COLONNE " 5 SPC ( 23 ) 3 s CURSOR 25 , 0 3 PR 
.INTCO, 63 "de-. 1 a"S M 

1610 GOSUB 1670: INPUT" Numéro ? " 3 CS 
1 620 C-VAL ( CS ) : I F ( ü< 1 ) + ( C >M ) GOTO 161 0 
1630 CURSOR .0,0: PR INT SPC (40) 3 RETIJRN 

1 650 CURSOR 5 ,12! PR I NT " UN PEU DE PAT I ENCE S . V . P . " s RETURN 

1 660 CURSOR C ( V ) , R 1 +2 3 PR I NT SPC ( 6 ) s CURSÜR C < V ) , R 1 +2 s PR I NTFNQ ( R , C ) » ; ,ETURN 

1 670 CURSOR 0 , 22 3 PR I NTSPC < 40 ) î CURSOR 0 , 22 3 PR I NTTAB < 1 0 ) " .. " 3 CURSOR 0 , 22 3 RETURN 

1690 'DEPLACEMENT. DROITE /GAUCHE 

1710 ON- < C 1 -T.= >M ) GOT0570 s T=T- 1 ï GOTO 1740 

1720 0N -- (T=>0) GOTO 570 s T-T-+1 s GOTO 1740 

1730 K=N 1 1 7 3 S-Nl 

1740 CL S 

1750 FOR C=1 T TO Cl- T 

1760 IF OM GOTO 1860 
1770 V=C+T 

1780 IF (NS (O) THEN CURSOR C (V) , 23 PR INT IMS(C) 

1790 IF LEFTS ( FS ( C ) , 2 ) = " " GOTO 1850 
1800 FOR R=ABS (K) •+• 1 TO AEB<K)+L 
1810 R 1 =R— 1< 

1820 CURSOR C(V) ,-Rl+2s PRINTFNQ <R,-C)- 
1830 NEXT R 

1840 IF (Q (IM, C) ) THEN CURSOR C (V) , 20s PRINTFNQ (N, C) 

1850 NEXT C 

1860 ON ( IS=."T" > GOTO 520s S=S-Ls GOTO 530 

1880 -CHOIX DE COLONNE affichée 

1 900 CURSOR 0 n 0 s PR I NT 1 0 , 6 1 " NUMERO DE COLONNE " 3 SPC ( 23 ) 5 
1910 GOSUB 16703 INPUT" Numéro ? " 5 ESS 
1 920 ES- VAL... ( ESS ) 3 I F ( ES< 1 ) + ( ES- 1 >M-C 1 > GOTO 1 9 1 0 
1930 T= 1 -ES s GOTO 1740 
1950 '-FORMULE .DE 'CALCUL. 

1970 GOSUB 1600 

1 980 CURSOR 0 , 0 3 PR I NT C 0 , 6 3 " FORMULE DE CALCUL " 3 SPC C 23 > 3 
1990 GOSUB 16703 INPUT "Far mu le ? "3FS(C) 

2000 IF FS ( C ) = " - " GOTO 1990 

2010 V=C+T 

2020 FOR R=1 TO NI 

2030 R 1 =R K 

2040 GOSUB 2260 

2050 I F ( V< 1 ) + ( V >C 3. ) -î- ( R 1 < 1 ) +■ ( R 1 > 1 7 > GOTO. 2070 
2060 GOSUB .1.660 
2070 NEXT R 

2080 ON (Q (N, C) ) GOTO 1280 s GOTO 570 

2 1 0 0 ' R E P E R C UT I C) IM c h a n g e m e n t 


FOR C=.l TO M 

:i: F ( F$ C C > = " Z A Hl.... " ) + ( LEFTît C F$ ( C ) , 2 ) = " " ) RnTT'i 7*? j n 
V=C+ T 

FOR R=:.t T O NI 

R . 1 . ~R~-K s X-Q ( R C ) : GOSUB 2260 
:i: F ( v< i ;• + ( v >c . 1 . > + ( r 1 < 1 ) + ( r j. > 1 7 > goto 2 . 1. 90 

I F X < >0 ( R M c ) GOSUB 1 660 
NE X T R 

IF (Q (N, C) ) GOTO 1280 
NEXT C 
GOTO 570 

? FORMULE ( CALCUL ) 

B*=F$ (C) 

I F ( VAL ( B* ) > THEN Q ( R , C > -VAL. ( B* ) s RETURN 

_ f^'^CFFT* (B*, 1 ) -"S" ) * (LEN (B$> <4) THEN Q <R,C> fQ (N, VAL (RIGHT* (B*, I FN (B$ j 
lr. ! URN 

2290 I F R I GHT* ( B3> , 1 > = " * - THEN G= .1. s GOTO 2360 
2300 I F R I GHT$ ( BS , 1 5 - " + " THEN G=2 s GOTO 2360 
23.10 IF R I G MTS ( BS , .1. ) - " / " THEN G=3:G0T0 2360 

2320 I F R I GHTS ( B* , 1 ) « " ” THEN G =4 s GOTO 2360 

2330 I F R I GHTS ( B* , 1 ) = " + " THEN G=5 s GOTO .2360 
2340 I F R I GH TT < BT , 1 5 = " % " THEN G-6 : 807 0 2360 
2350 IF LEFTS ( BT ,2)= " ZS " GOTO 2570 
2360 IF LEFTS (B*, 1 ) ="S" THEN ZW-Ns GOTO 2380 
2370 ZW=R 

2380 BS=M I DT ( BT , 2 , LEN ( BT ) -3 ) 

2390 F 1 -VAL ( BT ) s Fl S=STR$ ( F 1 ) 

2400 B T -R I GHTS ( BT , LEN ( BT > •••••LEN (FIT ) 1 } 

2410 IF LEFTT ( BS , 1 ) = " |< " THEN ZU-RsGOTü 2440 
2420 IF LEFTT (BT., 1)="S" THEN Z U- N." GOTO 2440 
r? 30 ^? =V ^ L<B * ) S E N G GQTa 2460, 2480, 2500, 2520,2540 
.^■• ; -i-4u F 2- VAL ( R I GH i T ( BT , LEN ( BT ) •■•■• 1 ) ) s GOTO 2450' 

2450 ON G GÜTÜ2470 , 2490 , 25 1 0 , 2530 , 2550 , 2560 

2460 Q ü R , C ) =Q (ZW, F 1 > * F 2 : RETURN 

2470 Q ( R , C ) ~Q ( Z W , F 1 ) *Q < ZU , F2 ) s RETURN 

2480 Q ( R , C ) =Q ( Z W , F 1 ) +F2 : RETURN 

2490 Q ( R , C ) ~Q ( ZW, F 1 ) +Q ( Z U , F2 ) s RETURN 

2500 Q ( R , C > =Q ( Z W , F 1 ) /F2 s RETURN 

25 1 0 Q (R, C) =Q ( ZW, Fl ) /Q ( ZU , F2 ) : RETURN 

2520 Q ( R , C ) =Q ( ZW, Fl ) -~F2 : RETURN 

2530 Q ( R , C ) =Q ( ZW , F 1 ) -Q ( ZU , F2 ) : RETURN 

2540 Q ( R , C ) =Q ( Z W , F 1 ) +F2 s RETURN 

2550 Q < R , C ) ~Q ( Z W , F 1 ) *Q ( ZU , F2 ) ; RETURN 

2560 Q (R, G) —Q (ZU, F'2) /Q ( ZW, Fl") #100—1 OOï RETUR'N 

2570 Q ( R , C ) — 0 


2 1 20 
2 1 30 
2 1 40 
2 1 50 
2160 
2 1 70 
2 1 80 
2 1 90 
2200 
.22 1 O 
2220 
2240 
2260 
.2270 
2280 


-580 Z W- VAL ( R I GHTT < BT , LEN ( BT ) - 
RM 


■ h UN J. --Z W TO C 1 î Q i R , c > -Q ( R , C ) +Q ( R , : 


- Ne::. A i 2 Kt ! U 


2600 'SCROLL ROUTINE 
2620 If R1+2XN RETURN 
2630 K=K + 1 s S--S+ 1 

2640 CURSOR 0,20s PR INT CNRT ( 20) ,- S 

2650 *Pai<E85, 24 s PRINT.s RETURN 

2670 ' SCROLLSH I FT 

2690 GOSUB 1670: J-J+i 

2700 I F ( S=N 1 ) + ( R=N 1 ) GOTO 570 

27 1 0 R= 1 7+ J : K=K+ 1 s S=S+ 1 

27.20 CURSOR 0 , 20 s PR I NT CH R T ( 20 ) ; S 3 SPC ( 37 ) s CURSOR 1 0 
2730 FOR C=1 T TO Cl -T 

2740 IF LEFTT (FT (C) , 2> " GOTO 2780 
2750 V-C-i-T 

2760 CURSOR C ( V ) , 1 9 s PR I NT F NO ( R , C ) 

2770 IF ( Q ( N , C ) ) THEN CURSOR C < V ) , 20 s PR I NT FNÜ C N , C ' 

2780 NEXT C 

2790 GOTO 610 

28.1.0 s EFFACEMENT -DONNEES 

2830 CL. S 

2840 GOSUB 1650 

2850 FOR 0=1 TO M 

2860 FOR R.= l TO NI ï Q (RR, C) =0ï NEXT 

2870 IF (Q (N, C) ) THEN Q (N, C) OOOj 

2880 NEXT 

2890 CL.S s GOTO 500 

2910 7 TRI 

2930 GOSUB 1600 

2940 IF NI >20 THEN CLS: GOSUB 1650 

2960 FORR= 1 TON 1 1 s FOR J =R+ 1 TON 1 

2970 I F Q ( R „ C > < =Q ( J , C ) NE X TJ s G0T03000 

2980 TE=Q ( R , C ) s Q ( R , C ) =Q ( J , C ) s Q ( J , C ) ■“••TE 

2990 IF J< >N1 s NEXTJ 

3000 NEXT R: GOTO 1740 

3020 •’ TRAITEMENT D ? ERREURS 

3040 IF (ERL=2380) * (ERN=3) THEN RESUME 570 
3050 RESUME 1740 
3070 'COPIE D’ECRAN 


s GOSUB 2650 


3090 DATA 


n 65, 66, 67, 68., 69, 70, 




7 , 88 , 89 , 90 , 25 1 , 205 , 22 1 , 203 , 209 „ 48 , 49 , 50 , 5 1 „ 52 , 53 , 54 , 

3 1 00 DATA 6 1 , 59 , 47 , 46 , 44, 229 , 244 , 236 , 2 1 8 , 227 ,226 , 2 1 5 
, 207 , 202, 128, 225, 254,200, 250, 95,248, 241 , 247, 63, 204 
3 1 1 0 DAT A 2 1 9 , 220 , 233 , 245 , 58 , 94 , 60 ,91, 243 , 93 , 64 , 20 1 , 62 


, 56 , 57 
12, 230 


, 246, 23Î 
, 2 1 6 . 


2 1 O , 255 , 33 , 34 ,35 , 36 , 37 , 38 , 39 , 40 ,41, 43 , 4 , 

1 20 DAT A .195 , 1 97 , 239 ,240 , 228 , 23 1 , 238 , 237 , ^ 1 . f 

154, 159, 156, 146, 170, 151, 152, 166, 175, 169, 184, 179, 176 
130 DATA 158, 160, 157, 164, 150, 165, 171 , 163, 155, 189,16 
, 172, 145, 147, 148, 149, 180, 181, 182, 174, 173, 186, 178 

1 40 DATA 1 85 , 168, 1 77 , 1 3 1 , 1 36 , 1 4 1 , 1 34 , 1 32 , 1 37 
1 27 , 252 , 94 , 1 98 , 95 , 72 , 67 , 96 , 97 , 98 , 99 , 1 00 , 1 O 1 


142, 191 
102, 103 


5 1 50 DAT A 1 1 3 , 1 1 4 , 1 1 5 , 1 1 6 , 1 1 7 , 118, 1 1 9 , 1 20 , 1 2 1 , 1 .22 , 1 


5, 234 
2 1 3 , 242 
183 

187, 153 

133, 138 
104, 1 12 
124, 125 


. 8 1 , 82 , 83 

. 45 

T, 198, 223 
„ 249 , 2 1 7 
r -, 130, 135 
143, 190 
1 26 , 1 05 . 


84 
193, 
, 208 
, 2 1 4 
, 1 40 
, 129 


85 , 86 , B 
196, 199 
>6 , 2 1 
, 192, 1.6 
1 . 88 , 1.6 
139, 1.4 



a ; . 227 , 35, 3.5, 35, 106, 1.07, 108, 109, 62, 1 10, 1 1 1 , 253, . 1 . 12, 128, 22 i , 205, 2.16, 206, 213, ??; „ 
1 :• 208 , 223 , 1 9.3 , 254 , 1 94 , 233 , 245 , 200 
3 1 60 B A = $1)0 00 s H —0 : PR I NT /P s PR 1 NT /P AN* 

3170 FOR 1=0 TO 40*22 1 

3180 J=PEEK (BA+I ) 

3190 PR INT. /P CHR* (V (J ) ) 5 :: ;| :i IF 1-1^40 Tl-IEN H»~0 

3200 NEXTs PR INT /P s GOTO 570 

3220 SAUVEGARDE FORMULE/ DONNEES 

3240 CL. S.” I NPLJT "NOM DE FICHIER ? "ïDAS 

3250 WOPEN DA* 

3260 FOR 1=1 TÜ M 

3270 FOR J = 1 TO Ns PR INT /T Q (J , I ) s NEXT J 
3280 PR INT /T F* ( I ) , N* ( I ) 

3290 NEXT I 

3300 CLOSE! GOTO 1740 

3320 LECTURE FORMULE /D ANNEES 

3340 Cl.... S s I N F' U T "N GM DE FICHÏER ? " S DAT 

3350 ROPEN DA* 

3360 FOR 1=1 TO M 

3370 FOR J=1 TO N: INPUT/T 0 ( J , I) s NEXT J 
3380 I NPLJT /T F* < I ) , N* < I > 

3390 NEXT I 

3400 CLGSEs GOTO 1740 

34.10 END 




IERS 


Voici un utilitaire bien prati- 

! |ue qui vous permettra cTef- 
ectuer, sur disquettes, des 
copies de sauvegarde de vos 
ficniers séquentiels (BSD) ou à 
accès direct (BRD). La présen- 
tation et les commandes en 
sont très simples, il suffit de 
les suivre à la lettre. 


70 CONSOLE? COLOK, , 2, é* CLSïP'RINTTAB (7) î D P Y F I C H 1 1 ' U " 

13u C0N50LE4, 20, 1,38: CAîfc“"_" ïCB*=""*" s CC$»CBR$ ($CA) : CDâ>»CHR$ (*D-Î ) s FfiRI 

^®®Wttl^ttl#ftWRSiitfSttSWIiliiiiHSi#iBlSilSililKBSillŒïSllilBiltt 

ÿlïliSISËlÉlÉlêilfil^ 


L'OCTET LUCRE 

LE SHRRPEiïTIER QUI PROGRRtinE 
PLUS VITE QUE SOU 0Q8RE 


:@i: io!LiLT|ii. 
r:4|s:l/ ; !TjfflTQi3 


BMÈfTO 

afflililïiiiii 




BASIC 800 


■ ■■ ï O INI T " CRT : l'I ÏM-K : : ,;2 - . ^ ' ! 2; I / 

: 20 ' H--VAI... ( LEFT $ C T T* , ?} >/ ; : 

;■ 50 CIRCLE II 3 T I 60, 1 00,80 ■" .: V : / > : ' ’lim 

2*0; CIRCLE CTI 160, 100, 76/^1/“/ 

: : 20 ; : si-u-h: m i=m : si =s " . .. : 

80 DEF KEYC 8)^"C0NT" : ' ■ 

90 H- VAL (LEFT# CTIf , 2 W' ; V' 

1 :;100 M-VAL <MID$ CTI * , 3 , 2) ) /\ : 7;/ 

: T I™ i K 1 OR T $ CI" 1 $ ,2 ) ) » IF' CS -O) * CMC >0) (30SUB320 

120 L. I NE C 0 1 :l. 60+3V /40 , i OO--SH /40 , 160+ SH, 100 +8 y ' 

0 f'ô; ; T - 1 Me: ro II 1 60>~S0240 ,/IOO+SB /#0 j 160HT5H , 1 DC^H-SV: 0 - 

SÿllïlIIIjpflG^ 

160 HH--CSIN CR A© 1 R t301 ; H/ 2:7;0 
1 70 HV»~ CGOS (RAD (H*30+M/2) ) 3 *48 
1 80 MH=(SIN<RAD<M#6> > ) *63 ' I 
1;90: : H VM~T GOSC RAI) C H *61): ) :* &s 1 

200 SH=iSIhKRADiS*6> ) >*65 : 

2iü SV=~ CCOS (R AD CS *6) ) ) *65 ' 

220 L. I NE F 3 1 1 60+FIV /20 , 100-HH/20, 160+HH, 100 + HV 
230 LINE F 3 1 160-HU/20, 100+HH/20, 160H-IH, 100+HV 
2^0. : L INEi: 3 II 1 60^:110/30, 1 0O;-~MH/3Q^ : \ 

h 1 N 5! 33 1 £û~wV:/3P:7;t^^ 

f ° ° 1 1,1 ^ C 3 3 0 + B ' v ’ -/ 4 0 " 100 SH/40, 160+8H, 100+Sv’ : 

2/0; LT NEF 33 160---SV/40, 100+SF-I/40./160+SH, TOO-+SV 

280 V I F; C M=0 J! * 1 S2 0 THËN : ; F0R : j =:J TDH .;2 | ^ ( f . ;l 2T^tS( jB;73r7 N É^ 

290 IFA*«TI*30T02<?O : ^3: ^ 1 

■' 5 ? 1 ?--- I'W-T'tiPF'r* ( T-i* S- ..v,; ■■ ,.m 10.* < r.t * Vs s/; " S RIBHT*<TK,?> 

320 MUS IC ”020 1 5L5T5S0M6 . C :: RETURN 
33f' Mi l-=; [ r "n?V 1 5 F 5T3SOM6 A" s RF TiJRN 


Cette rubrique répond « en vrac » 
aux questions que vous nous posez 
le plus souvent par courrier ou 
téléphone. Dans la mesure du pos- 
sible, nous agrémenterons ces 
explications de routines ou pro- 
grammes explicatifs. 

• Tl $ est une chaîne de caractères interne au 
BASIC contenant l'heure sous la forme 
« HHMMSS ». L'heure est mise à « 000000 » 
à la mise en route du BASIC. Il est possible, 
grâce aux instructions de traitement de chaînes 
de caractères, d'extraire séparément les infor- 
mations de Tl$. 

(Listing 1) 

• SIZE vous permet de connaître le nombre 
d'octets mémoire encore disponibles sous 
BASIC. Pour connaître la taille actuelle de votre 
programme, il suffit de taper: PRINT 
22338-SIZE. 

• CMT est le nom de périphérique indiquant le 
lecteur de cassette. Il n'est malheureusement 
pas possible de lire sur cassette un programme 
à partir du DISK BASIC. Le seul remède consis- 
te à transférer ce programme sur disquette à 
l'aide de l'utilitaire TRANS-UTILITY de la MAS- 
TER DISQUETTE. 

• RND permet d'obtenir une valeur aléatoire 
entière pouvant se situer entre 0 et 999999999. 
Pour obtenir une valeur située entre 0 et X, il 
suffit d'introduire INT (RND(1)*(X+1)). 

• STICK et STRIG gèrent la poignée de jeux. 
Rappelons que tous les « joysticks » commer- 
cialisés sous l'appelation « compatible ATARI » 
peuvent être connectés sur le MZ 800. 

• LET est une instruction inutile qui peut être 
omise dans tous les cas. 

• USING : le basic MZ 800 traite ses valeurs 
numériques sur 8 chiffres significatifs plus point 
décimal. Actuellement, aucun Basic Sharp ne va 
au-delà. Pour des applications de type compta- 
bilité sous basic nécessitant des valeurs plus 
importantes, il est nécessaire de se procurer le 
système d'exploitation CP/M ainsi que le basic 
MICROSOFT (M. BASIC) capable de traiter des 


i p. LL N FüUE F" H IRE! ; UH Ci FIT A F FF F 7 J TI (IN 
20 PGKE:& B 1 A, $20 „ 6 ; : ;.'\v v 2 

30 G ET RE* 

40 TR RFT^"r : THÉ Kl 70 
50 FT'ilNTRF/fcs 
60 GOTO 30 

70 R FM POUR REVENIR AU G ET INITIAI 
80 FORE^BIA, 60, 40 


valeurs en double précision, soit 16 chiffres 
significatifs. 

• GET a deux vilains défauts : il n'est pas à répé- 
tition et ne fait pas apparaître le curseur. La rou- 
tine suivante élimine ces lacunes et peut être 
incorporée dans tout programme. 

(Listing 2) 

• INIT"RAM : si vous possédez une carte RAM 
FILE et une imprimante, cette fonction devient 
très puissante et peut vous permettre de gagner 
beaucoup de temps lors des impressions. 
Essayez, par exemple INIT"RAM :$8000 ». Cet 
ordre réserve 32000 octets à l'imprimante. Tous 
les ordres d'impression enverront les caractè- 
res destinés à l'imprimante dans cette réserve 
appelée également BUFFER ; ceux-ci seront 
ensuite directement gérés par l'imprimante, indé- 
pendamment des taches du MZ. Pour vous en 
convaincre, chargez maintenant un programme 


iVEG CURSEUR AFRAREMT. 


dans votre MZ puis tapez : LIST/P:RUN ; vous 
constaterez que votre programme fonctionne 
correctement sur l'écran du MZ et qu'il est, en 
même temps, listé sur l'imprimante. 

• INIT"LPT:MO" chaque ordre d'impression est 
envoyé directement à l'imprimante sans mémo- 
risation dans la RAM FILE. 

• INIT"LPT:SO" permet de faire fonctionner 
l'imprimante table traçante MZ 1P16. Rappelons 
que l'imprimante MZ 1P01 du MZ 700 ne fonc- 
tionne pas sur MZ 800. 

•INIT"LPT:S2" permet le branchement de toute 
imprimante au standard CENTRONICS. La con- 
version des codes ASCII standard est effectuée 
automatiquement par le MZ ; par contre, les 
caractères graphiques du MZ ne seront pas 
imprimés. Cet ordre doit être utilisé au début de 
tout programme ou l'utilisation d'une imprimante 
« CENTRO » est requise. 


Dans certain cas, il vous faudra également régler 
les 2 interrupteurs centraux de la partie arrière 
du MZ ; il n'y a pas de réglage déterminé, il fau- 
dra essayer chacune des 4 combinaisons et ne 
plus toucher à ces interrupteurs dès que l'im- 
primante fonctionnera normalement. 

• INIT"LPT:S3,$OA" ce mode est utilisé lors- 
que l'imprimante « CENTRO » connectée au Mz 
demande un code différent de $OD pour effec- 
tuer un retour-chariot et un saut de ligne. Dans 
certains cas, il peut s'agir du code $OA ; con- 
sultez, pour cela, la notice de votre imprimante. 


• PATTERN les principales difficultés rencon- 
trées avec cette instruction semblent provenir 
d'une mauvaise assimilation des valeurs binai- 
res générées par les codes CHR$. A chacun de 
ces codes correspond une suite de 8 bits cor- 
respondant à 8 points allumés ou éteints selon 
que ces bits sont à 0 ou à 1. 

Ensuite, à l'aide de ce modèle, pour dessiner 
un « X », il vous suffira d'entrer : 

PATTERN 8, CHR$ 
(129,66,36,24,24,36,66,129) 


Ces quelques explications ne représentent qu'un 
début. Nous tenterons, à l'avenir, de résoudre, 
dans ces colonnes, tout problème particulier 
posé par une instruction incomprise ou insuffi- 
samment expliquée dans le manuel. Nous ten- 
terons également d'apporter des solutions aux 
problèmes de programmation que vous nous 
soumettrez. En un mot, ... nous attendons votre 
courrier. 

SB. 


MODIFICATIONS AUX BASICS 


Nous allons ajouter aux divers Basics 
MZ-800 quelques nouvelles possibi- 
lités. 

Dans la suite nous désignerons par : 

(a) la version QD : 5Z009 VI-OA 

(b) la version K7 : IZ016 VI-OA 
je) la version K7 : IZ016 VO-3A 

Ces nouvelles possibilités sont : 

CTRL A : ramène le curseur en tête de ligne 
d'écran. 

CTRL B : permet de passer d'un clavier muet 
à un clavier sonore et inversement. 

CTRL D : efface la fin d'une ligne de texte, à 
partir de la position du curseur. 

CTRL G : produit un bip. 

CTRL J : permet d'accéder au second généra- 
teur de caractères (utilisable par SYMBOL). 
CTRL L : permet d'écrire les caractères en vidéo 
inversée. 

remarque : CTRL J et CTRL L peuvent être 
« panachées » c'est-à-dire qu'il est aussi pos- 
sible d'écrire les caractères du second généra- 
teur en vidéo inversée. 

Cependant CTRL L ne donnera rien avec 
SYMBOL. 

Pour faire ces modifications, suivre attentive- 
ment les trois étapes suivantes : 

Première étape : mettre l'ordinateur sous ten- 
sion et appuyer sur M pour retourner au moni- 
teur. On peut alors charger le Basic : 

Version QD : placer le ÛD contenant le Basic 
dans le lecteur et faire QC (CR). 


U 0 B 0 
55B0 
55B8 3 A 1 A56 
55B3 EEtfJi 
Zi b AJ b. 3 2! .1 A b 6 
b b B 8 C9 
5SB9 

55BC CG 
b b BD 2 AB 2 1 0 
b5C0 2208 
b b L .c.! L.- u b 9 
bbCb 

b b L’A 

b b *....■ ï.) L.- io 

bbL-i:::. .Z A b 2 .1 b 
5b DI CD 22 8 B 
55D4 D9 






bbi:.:.L; 12/ 

bbFTj 2F 
55F 1. 320152 


<9 

3 Fi X H b 2 
F 120 1 
321A56 
09 

CDCbbb 

Ü0 

2 H 2 1 0 

2E00 

03540'”/ 

3 ABF 1 0 


./riu..,:! .1. 0 

CD290B 

D9 

D 9 
0 1 

70 

A, ■.* 1 

CB 

0C 

2 AB 2 i 0 
Ci.) F 002 
.loi'' 2 

2 F 

32F 955 
C9 

Pi 8 .1. b A 
320156 


R EL 

C'TRLBs LD 
à Ui \ 
LD 


L.- i K i... Pt « O hLL 
RE T 
LD 
LD 

NüPL.T? ;: I...D 

■OR- 
RE T 

CTRLDs CALL.. 

RE P 
LD 

CALL 

PUSH 

EXX 

C TR'LDOï PGP 
LD 
OR- 
RE f 
DEC 
PUSH 
LD 

CALL 

JR 

CT RL J :: LD 

GPL. 
LD 
RET 

CTREE.;; LD 
GPL 
LD 


55B0H 

A ( B WR K ) 
0 1 H 

(SWRK) ,A 


N GPL. T? 

N Z 

HL , ( DPRNT ) 
L , 00H 
2CURS 

Pl ij .1. I '-4 B .{. I...- ) 


■NdPLT?- 

\\ 1 '7 

I A À.. 

HL , (DPRNT) 
DEL. 2 

HL 

BC 
A, B 


BC 

BC 

HL... , (DPRNT) 

DELSUP 

CTRLDfâ 

A, (CTRL JM) 

(CTRL JM) A 


A., (CTRLLN) 


( CTRL... EN ) ,A 


Entrer le nom BASIC MZ-5Z009 (CR). Le basic 
se charge. 

Répondre N au message « OK ?(Y/N) ». 
Version K7 : placer la cassette contenant le 
Basic dans le magnétophone. 

Taper GE807 (CR) et appuyer sur Play. 
Attendre la fin du chargement signalée par une 
étoile. 

Deuxième étape : utiliser la commande M du 
moniteur pour modifier le Basic. On se souvien- 
dra que, par exemple, pour placer les codes 3A 
puis IA puis 56 dans les octets 67B0, 67B1, 
67B2, il faut taper, juste après x qui signale que 
le moniteur attend une commande, M67B0 (CR). 
Apparaît alors sur l'écran 67B0 00 suivi du cur- 
seur. 00 représente le contenu actuel de l'oc- 
tet 67B0. On peut alors entrer 3A (CR) ce qui 
va placer 3A dans 67B0. Apparaît alors 67B1 
00 suivi du curseur... Pour arrêter toute modi- 
fication, faire Shift Break. Le moniteur refuse 
toute entrée invalide. En cas d'erreur (par exem- 
ple, on entre 3B au lieu de 3A), faire Shift Break 
et recommencer. Il n'est pas nécessaire de réen- 
trer un code valide, il suffit d'appuyer sur CR. 
On entrera à partir de 67B0 les codes du listing 
3A IA 56... en les prenant dans les colonnes (a), 
(b) ou (c) selon la version du Basic. Le dernier 
octet doit être dans 6821. 

Entrer maintenant les modifications des adres- 
ses de saut : 




C HAN 01 s ADI) 

HL , HL 

SET 

4 , H 

xJ 1::;. r ■ A..* 

CÏRLJM: DIE F B 

L-. 1 i 

(30 H 

OR 

A 

RE i 

Z 

SET 

3, H 

RE T 


CHANÜ2; RUSH 
DEFB 

AF 

3EH 

i s :i ri: U b F B 

00H 

ÜR 

A 

JR 

/. -i- 6 

PÜP 

AF 

GPL 


JR 

+ 3 

POP 

AF 

I NC 

HL 

EX X 


LD 

(HL) ,A 

RET ■ 


GHAN03*- ADD 

HL , HL 

LD 

■ : ■■ rip 

A., (CTRL 

A 

L « I ^ 

L...D 

»•••! 

A , 1 0H 

RET 

2 

LD 

RET 

a * i. c H 

ÜHAN04 « DEFB 

3EH 

BwRKï DEFB 

f i i-v 

00H 

Ui V 

CAL.. L 

A 

N 2 , BIP 

JP 

GE T CAR 


Il est possible aussi de modifier l'un des octets 
de la zone IOFI-IOFE qui contient le nom du 
basic, ce qui permettra de l'identifier lors de son 
chargement. Cette modification n'est pas obli- 
gatoire ! 

Troisième étape : réenregistrement du Basic. 
Version QD : placer un nouveau QD dans le lec- 
teur et faire JF162. Répondre alors Y au mes- 
sage « OK ?(Y/N) » ce sui réenregistrera le 
basic. 

Version K7 : Placer une nouvelle cassette dans 
le magnétophone et faire : GE80A suivi de 
Record.Play pour réenregistrer. 

Bernard Kokanoski 




MRECTORY 


en octets de ces fichiers. La routine Basic sui- 
vante fournit ce type d'indications. L'appel de 
la fonction DIR fera d'abord apparaître la direc- 
tory normale puis une seconde ou seront ajou- 
tées la taille de tous les fichiers concernés. 

Jean MILLET 


L'instruction DIR affiche les types et titres des 
fichiers contenus dans les trois types de 
mémoire de masse du MZ 800. Il est cepen- 
dant parfois nécessaires de connaître la taille 


25 N=NO+ 1 s I F" PEE K ( NO ) -OTHENEND 

30 I FPEEK ( NO ) = 1 TIHENPE I NT "OBJ . " : : EL.SEPE I NT " BTX . " ; 

40 I FPEEK < N ) < > J. 3THENPE I NTCHR* ( PEEK ( N) ) 3 : N=N+ .1. s GÜTG4G 

50 PR I NTT AB (25) S PEEK (NO+21) *256+PEEK (N0+20) 'i " octets" ! N0=N0+32« GOTQ25 


LfCTURE 

VARIABLE 


Il vous est certainement déjà 
arrivé, lors de l'écriture d'un 
long programme en Basic, de 
vous poser cette angoissante 
question « Ai-je déjà utilisé 
cette variable dans mon 
programme ? » 

Comme il n'existe malheureusement aucune 
commande Basic capable de répondre à cette 
question, il vous suffira de merger ces quelques 


lignes au programme en cours d'écriture pour 
vous rassurer. Cette routine est volontairement 
écrite avec des numéros de lignes élevés pour 
ne pas interférer avec le programme en cours. 
Vous n'aurez plus, ensuite qu'à taper GOTO 
65500 pour voir s'afficher le nom de toutes les 
variables numériques, alphanumériques, 
tableaux dimensionnés, et fonctions définies 
par DEF FN. 

Profitons-en pour signaler une possibilité du 
basic non signalée dans le manuel : il est tout 


à fait possible de définir une fonction à l'aide 
de DEF FN traitant des chaînes de caractères 
du type : 

DEF FNA(B$) = (LEFT$(B$,3) + MID$(B$,6,5) 

Jean MILLET 


65500 Z 9=0 s N=PEEK ( * 1 074 > +256* PEEK ( * 1 075 ) 

65501 V=PEEK (N) s N=N+Ü IF (V=0)+ <V=5) * (PEEK (N+l ) =*5A) * (PEEK (N+2> =*39) THEMEND 

65502 I F V=3THENB0BIJB65506 s PR I NTT AB (6) S "Long : " ; PEEK (N) s N=M+3s G0T065501 

65503 I FV=5THENGGSUB655Û6 s PR I NT s N=N+5 : G0T06550 J. 

65504 T F ( V= 1 33 > + ( V= 131) THENGDSUB65507 : GGBIJB65506 s Z*= " " : N=N+ 1. s PR I NT " ( " 5 s FOR I = 1 TOP 

EEK <N 1) : Z*=STR* (PEEK <N) ~1+256*PEEK <N+1 ) )'+", " + Z*sN=N+2«NEXT: PRINTZ*; "G) M sN=L.:GOT 

06550 I 

65505 I F (. V=69 ) + ( V=67 ) THENG0SUB65507 : PR I NT " DEF FN " ! : GÜSUB65506 : PR I NT " ( " ? CHR* ( PEE 
K (MM. ) ) ï " > " : N~L " GOTO 6 550 J 

65506 FOR I = 1 TOPEEK (N) " PR I NTCHR* ( PEEK ( N+ 1 ) ) ! s NEXT s N=N+ 1 s I FFPAC ( V / 1 6 > * 1 6=3THENPR I N 
T"*" : s RETIJRN SEL SERF TURN 

65507 L=PEEK (N) +256#PEEK (N+l > +Ns N=N+2: RETUFïN 


DRUNKY 


Ce jeu pourrait se sous-titrer : 
L'art ae mettre du lait dans 
son vin. Il est écrit entière- 
ment en basic et exploite à 
fond toutes les commandes 
graphiques du MZ. 


La notice étant intégrée dans le programme (ce 
qui est une très bonne habitude) nous ne nous 
étendrons pas sur les règles de ce jeu qui 
demande une dose assez considérable de 
patience, de lucidité et de sang froid. Parallè- 
lement à l'intérêt ludique de cet excellent pro- 
gramme, son étude détaillée permettra de cla- 
rifier certaines instructions graphiques et sono- 
res dont les possibilités sont insuffisamment 
détaillées dans le manuel. 

Amusez-vous bien, mais n'oubliez surtout 
pas :« 2 verres, ça va... » 




- IM! I i.F i - i-ï | ":FAI 1,11 
I ■ <0 rFMF-O ? 

I Iv i ■ i H MM* MB* (.«.,?, MA* <6. ’ 

i mmÎ ‘ ’ ' ’ i ' 0 " r> ' 7 “ A7A7E7D7 ~ A7D;T - -^5~E5D7-A7A7E7D7-A7D7-A5-P^'' 

1 ’ *‘‘ 0:îl>7 " A 'A7E7D7-A7D7-A5~B5D7-A7A-T7D^~A7D7-A-~B^- 

* 4 *' MM*( 1 / ~ , ‘O:;'09A9D9D9D9A9D9D^” 

' ra ' BSD7 -"»7ErD7-«70B0SESFSB7D7B7-e! 

JJ'/ wo* 0 - DV 8 9D9 8 t? D9A9D9D9ü9G9D9D9A9G9D9D9" 

' «»<>.- Ü3D? -A7A7E7D 7 '-A7D~'-A5-B5D?~fi7A7S7D7-A7D7-A5-B5D7-A7A7E7D7-A7D7-A5-B5 


-D5D7-A7D7-F5 

-D5D7-A7D7-F5 


*-'W LINt 182,119.172.116 
1310 LINE 204. 1 lO, 198, 1 15 
1320 LINE 198.115.183,115 
1330 LINE 183, 115, 175. 112 
1340 LINE 172.116,176,112 
1350 LINE 172.116,167.116 
1360 LINE 167.116,162,111 
1370 LINE 162.111,162.106 
1380 LINE 162,106,165.101 
1390 LINE 165.101,169.101 
1400 LINE 169,101,175,106 
1410 LINE 175,106,175.111 
1420 LINE 173, 105. 170. 105 
1430 LINE 45,136.84,136 
1440 LINE 45,136.34.91 
1450 CIRCLE 64,91,30,1/4.5 
1460 PA INT C 3 364, 91 , O 


F ; . / MM* <7> , '• 02D7- A7A7E7D7-A7D7-A5 B5D7 A7A7G7D7 A7D7-A5-B5D7 A7A7E y 07 A 7D --A5-B5 
20..- HA*(3>=”02D9A9D9D9D9h7G7D9D9D9ApD9D‘='" 

«W7-OT7- 


/ 30 MA* (4) = ” 0209A7G7D9D9tS909D9D9A969D‘7D*» 

. 40 MB* (5i 03G 7B7G7 -B5C5D7- A5 #A5~B ’ -F 5 
A7G7A9A8” 

-'50 MM* ( 5 > ■- " 026 7D 7 G 7 B5C5D7- A5- -#A5- B7 -F5 
A/G7A9A8" 

m * i 5) — "OI G9G9D9B9A9G9D9A767D9D9D9A 7G7D7AB 
*-7o MUS IC MA* >. 1 ) ; MB* v 1 ) ; MM* i 1 i 
2B0 BOX! 3, 030, O. 319, 199, 7' 

290 CIRCLEt3,0319, J 79, lûTl , i,* ’ 

C IBf l EL 3.(» J279, 1 *?, U-, 1 , 3 , n *2 
310 L.IMET3, 039, 129,299, 129 
■320 L.IWEC3, 03 19. 169, 279, 189 
330 L.INEC3, 039, 129, 9, 179 

140.. L-INEr.3, 03289, 129.-2B9.T79 
35u; LINE 13, 0J9, 157, 289. I 5? 

300 L I ME C 3 , 0 3 49 , 1 29 , 9' . . 1 69 
3/0 I.. INET 3, 0399, 129,59.189 
3Bo LINEC3.0 Ji29, 129, 119,- 18° 

390 LINEC3, 03209, 129,239, 1S9 
400 L.INEC3, 03169, 1.29, 179,189 
4.1 O I. I IMF C 3 « 0 1 249 , 1 29 , 239 , J 69 
4?<> PA.1NTT 3 3-39, 130. .3 

43.0. PA INT! 3 II 19 , 1 30^ 3 
440 PAINT! 3 3 199, 130,3 
450 PAINT! 3 3279, 130,3 
460 PAINT! 3 3 59, 158,3 

470 PAINTC33159, 158,3 ‘ 

451.. ' PAINT! 3 3 259, 158,3 
490 L'A I NT C O 31, 1,3 

500 CI RCLE.C 1 , 0 3 279 .19.1 O , i , o , 7 ■? 

510 CIRCLELl , 03 19, 19, J O, 1 ,0, 3 . 2 " 

520 LINE! 1 , 03 19, 9, 278. 9 
530 L..INE! 1,039, 129, 238, 1*29 

540 LINE! j , 039, J.9, 9, 129 
550 LINEC 1,03289, 19-, 289, 129 ' 

560 PA I NTT 13100, IOO, 1 

570 FOR B.0=1 TO 7 

580 CIRCLE Cl . 03309,70+ (B0*15) ,4,1 

590 PA INT C 23309, 70+ (BO# 15) , 1 

600 NEXT BO 

6.10 FOR BO-2'93 TO 315 STFP 2 
620 LINE C2, 0360,9, B0.'69~ 

630 NEXT BD 

640 FOR B0=9 TO 69 STEF'2 
650 L..IIMEC2, 03293, BO,. 315, BO 
660 NEXT EfO 

670 MU5IC MA* ( 2 ) î MB* ( 2 > ? MM* ( 2 ) 

680 SYMBOL C 0 . 0 332,51." GODEAUX MAUR ICE" , 7 , 7 , o 
690 S YMBOL C 3 , 0 3 30 . 5(3 , "GODEAUX MAURICE" , 2 , 7 , 0 
700 S YMBOL.ro, 0.388, 91, "PRESENTE", 7, i,o 

7» MUSIC L WaÎt 3Q6 ' ? °’ " Pf *ESENTE",2, 1,0 
730 MUS I C MA* ( 3 ) ; MB* ( 3 > ; MM* ( 3 ) 

740 BOXC 1.0327, 39. 279, 111. l 

750 COL OR 0,0 

760 LINE 176,136,215,136 

! 79 LINE 176,136,195,127 

780 L. I NE 215,136,201,129 

790 LINE 201,129.219,115 

300 LINE 219,1.15,225,110 

S 1 0 L I NE 225, 1 1 0 , 230 . 1 05 

820 LINE 230,105,236.95 

830 LINE 236.95.240,85 

840 LINE 195,127,199,122 

850 LINE 199.122,199,117 

860 LINE 199,117,195.112 

870 LINE 195.112,197,110 

880 LINE 198,109,194,109 

890 L. INE 194,109,191,99 

900 LINE 191.99.186.94 

910 LINE 186.94,196,94 

920 LINE 196,94,216,97 

930 LINE 216,92.226,90 

940 LINE 226,90,240.85 

950 LINE 186.94, 191,91 

960 L. INE .191,91,206,87 

970 LINE 206,87,216,85 

980 LINE 216,85,227.83 

990 LINE 227,83,232,83 

1 000 L I NE 232 . 83 . 240 ,85 

1010 FAINTC23186. 134,0 

1020 PA I NT 1 2 3 230 , 84 , O 

1030 CIRCLE 190, 106,3, i 

1 "40 CIRCLE 194.100,?,j 

1050 CIRCLE 198, 100,2. 1 

1060 PAINTC23190. 106,0 

1070 PAINTC33193. 101. OSPAINTC33I97. 101,0 

1 080 I. INE 194 , 109. 198. 1 07 

lU9t.) SET 1 93, 101 : SET 194,101sSET .197. IOJsset iqd if 

UO0IINE 196,88,191,83 <K1-SET 19 8 ,K 

*110 LINE 191,83,187.81 

1120 LINE 137,81, 184,81 

U30 LINE 184.81.161,86 

1140 LINE 192.91,187,86 

1150 LINE 187,86,184.86 

1 ISO LINE 134,85,163,90 
1170 LINE 161,86,163.90 
1130 IINE 163,90,158,96 
1190 LINE 158,96, 151,96 
1200 LINE 151,96,146,97 
1210 LINE 146,92.147,87 
1220 LINE 147,87,150.85 
1230 LINE 150.85.157,83 
1240 LINE 157,83.161,86 
i iSu SET 150, 86* SET 150.87*5FT f5» 

,54 ’ 9lî SET 155,9 |sset 156,91 
1^60 LINE 204,110,210.110 
1270 LINE 210,110,204,116 


'2* SET 91 , 103* SET 91,102 


'5-A7E 7-G7-B5C5D7-A 7 A7G 7D7 -A707-A7D" 7 -A? 
'E7-G7 -B5L5D/ A7A7G7D7-A7D7 -A7ï;-'~A7 


1470 LINE 84,136,87,121 
1 4BO LINE 87,121.80.114 
1490 LINE SO. 114,89,119 
1500 LINE 89,119.87,117 
1510 CIRCLE 88,112,4, 1 
1520 LINE 89,107,90,105 
1530 CIRCLE 86,103,2,1 
1540 CIRCLE 90,103,2,1 
1550 SET 87, 103: SET 87,1 
1560 LINE 90.101.94,91 
1570 LINE 60,97,50,67 
1580 LINE 65,97,55.65 
1590 LINE 50, 67,55.65 

1600 LINE 70,116,83,195 
1610 LINE 67,120,86,129 
1620 LINE 83,125,103,117 
1630 LINE' B6, 129, 103, 121 
1640 LINE 103, 1 17, 103, 121 
1650 LINE 103,121.113,123 
1660 LINE 113,123, 120,191 
1670 LINE 120,121.12-9,117 
1680 LINE 122, 117, 120, U7 
1690 LINE 1 20 ,113,117, t 1 O 
1700 L INE J 13, HO. 103, 117 
1710 LINE 92,90, 131.80 

1720 LINE 93,94,133,84 
17T0 LINE 131,80, 1.33,84 
*740 LINE 133,a4,136,87 
1750 LINE 136,87,141, 88 
1760 LINE 141,88,146,87 
I 770 LINE 146,87,151,84 
1780 LINE 151,84,153,87 
1790 LINE 153.82,153.80 
1300 LINE 153,80,148.77 
1810 LINE 148,77,131,80 
1820 C0L0R3, O: ÇURSQR 0,5 
1830 FAINT! 2 3 185 . 1 17 , O 
1840 PA J NTT 2 3167, 87, o 
1850 PA I NT C 0 3 147, 78 , O 
*860 PA I NT C O 3 1 11 , 119 , o 
1870 PAINT!3350, 130.0 
1880 PAINT! 3 J 158, 86, O 
1890 PAINTC33167, 1 11 ,o 
1900 PAINTC331 11,87,0 
1910 PAINTE3387, 127,0 
1920 F'A I NT C 2 3 56 ,71,0 
1930 PA INT! 2 362, 94. O 
1940 PAINTC2387, 111,0 
1 950 SYMBOL ! 3 , O 3 1 2 , 30 , " DRUNK Y ",4,4,0 
1 960 SYMBOL ! O ,03227, 30 , " I V " , 4 , 4 , O ' 

1970 MUS I C MA* < 4 ) S MB* ( 4 > ; MM* < 4 > 

3020 BOX Cl, 030, O, 31 9, 199,2 
3025 BOX Cl, 032, 2, 317, 197,2 
•3.03 u BOX C 3 , 0 3 1 4 , 1 4 , 304 «184, O 
3040 L I NE C 3 , 0 3 1 7 , t 85 , 307 ,185 
3050 L. I NE ! 3 , 0 3 1 7 , 1 86 , 307 , 1 86 
3-U6U L I NE ! 3 , 0 3 1 7 , 1 87 , 307 , 1 87 
3070 L I NE C 3 , 0 3 305 ,17, 305 ,184 
3080 L I NE C 3 , O 3 306 ,17.306,184 
3090 L I NE C 3 , 0 3307,17,307,184 
3099 RPM******** E XPLICATI0NS******** 
i ? ~? S0R 2 ' 3îp RINT"Sur une grille 

■*115 *2) "trouvent * "SPRINT 

3130 PRINTTAB (9) " 10 verres de i*n-* ■ ^ j ÎI“• 3 *^ : ■ 14 ' G ° £lJB,, LAI T,, * PRINTsPRINT 
3140 YZ=0: COL OR 1,0 1 ’ 1 l ~ A ~ 6 ‘ '■ 7Jïsl4! SOSUB"VI-N" : PRINT: PRINT 

ut.bas.gâuche.^^raHe. " SrreS ** df?placent sel °n Ruatre" s PRINTTAB (2) ”di recti 

a direrHan^inC^rse de"’' VerreS BB h ^tent.,ils r epar PRINTTAB i2) "t i r ont 
t'de ^ etait - 

3180 PRINTTAB (2) "verront celui-ci se modifier Ain 
1 se Percutant devien-" 1 11 

3190 PRINTTAB (2) "dront 2 verre- de vin " 

3200 MUS IC MA* (5) ï MB* < 5 ) ; MM* .;5 i 

S2 “‘ 0B3 " ,ICURS0R 1S -^^RINT"T-p„ touch . _ v . 

x2lo GET G*î IF G*=’’" THEN 3210 
B0X £3,0314, 14. 304 ,184,0 

r_gue C vS^ R Doûvéz R d2L aSr •• ’ * 9r,n * s ’ SÊ ‘ trouve egalement, ”*PRINTTAB(2) "un se 
sser L r ir N p[^e:Q,lirTîn" e "*“*'*« ou. la": PR] MTTAB ( 2> "droi te ; ou 

* e & sens" eril:Dntre ‘ ^ S6?rve?ur di rer-" : PRINTTAB (2) "ti on vari 
3270 C0L0 rI?o < 2> contrairf? des Quilles d’une inonf re" : PRINT 

î aH^presents^dans TJ- : PRINÏTAB^H'grî U " que '' ! PR ^^TAB ( 2> "des verre 

3290 PRINTTAB (2> "Pour vous aider ï.*" '?° lnS d ® 100 ^90P*."* p RIi 

ou est indiquée la di "* PRINTTAB! 2) "reft ion *«>!»' ' i . Unff PRIWT TAB ‘ 2 > "seconde gr 
3300 PRINTTAB <2, "Vous- déplacé^ iJ! ° v e^a- " 

I* touche " : : COLOR 3 , O : F'R INT" CR " ; r COI OR l . • PRINTTAB (2) "ve cur seul 

3310 PRINTTAB !2> "le laisser slir p c ~ '’“- p RINT s, vous" 

3320 SYMBOL 10 154, 190. "Etes vous prêt 


> cases sur J.0 se" 


"s PRINTTAB (2) "ces verres 
, 2 " : PR I NTTAB (2) " verres de 


(8* SET 152 . 89: SET 153.89:SET 15 


ï4. R9ï SET 154.9 


;.340 


3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3460 

3490 

3500 

3510 

3520 


20) , Y (.20) 


GET G*: IF G*="" THEN 3330 
REM******** INITIALISATION** ****** 
INIT "CRT * Ml ” 

PAL 1,U 

B0XC3. 030, 0,319. 199, 1 
TX«=0 ' 

DIM V* (11, H), 0* (il, H) 

POR 1=^» TO 11 
FOR J*0 TO 11 
V*<I,J)=» ” ; D* ( I , J) =r " • 

NEXT J* NEXT I 
FOR 1*0 TO 11 
V*iO, I > = ”#"s V* (1,0)=" 

V*( I, 1 1 ) =”#•> * v*(l | . I) 

NEXT I 
FOR 1=1 TO IO 

V*(5,5)="S"*D*(5,5)="*" 

E=10*V=10 


*"*D*(0, 1)="#" 
= ”#":D*a. U> = 


:D*(I,0) 
'#” : D* (J 



3570 

3580 


3670 

3880 

3700 


1 ■■>'(! + JO)-. 1 0 : V < x o + J : 


3720 

3730 


3780 
3790 
3800 
3810 
3820 
3 B 3 C 
384 C 
■3850 
3080 


3890 

3900 

391 Q 


>■' i O 9 

X X 1 :• = 1 ; y CI)-. 

NEX 7 r 7 : 3 * • -■■•.' - ncy, , . 

REM 

. REM ^r^'HAGE ro^li^ ' 

’ raR^T^' •POSITIONS»;., i ; 0 
FOR jj =1 to 

IF V $(II, ; HkN ï* 0 UND 60 , 1 

I F V*(lî;Si;..F" S Sf® "VIN" 

IF r S r G ° SUB "LAIT» 

F INEC 3 , 0 3 1 7 + ( < Jj J T 4 f UB " SERVt:fJR " 

LINEn.m .. 


, 17 + i (, 7 J t .* j g * ■>/ . , , r 

, . 6 + ( i U i > * 15) 




ai-i) *xi) 


■920 


3934 

3938 

3940 


3981 

399 C 


4030 

404 0 

4050 GG 


ME X T i j 

L INE H , ( , -J ls , 

BYMB0lr3]^ t B 

for ii,i Ç r /; ( ;' D 1 RE F rio Nn ,. 

FOR Ja=:1 To 
ROUND 71 

BOXCO, 03199+1 (JJ- i >*, , , 

IF Di(u ™ E jJ G È 7 S' j B^ 1AUT" > * 11> ’ 209 * ( *1 1 > , 30+ ( < j * n 

IF n* ( JT,.T.7 -i ® GOSUB-BAS- ‘'* U 

IF D$, T I,TT GaSUB-GAUCHG" 

' IF ■Dttil.j.iw;-.;., ® bDSUB "DROITE " 

' îf ne V , ! î TH ™ 2 1200+ < <4,1- UÏi 

Rn^’ 1 ? 30 ’ là9, ?0, 199,0 
Tr^4;;j4' ,iAo ' is<i 'F99,,, 

G D SUD ' ” y Î' N 1 ’ 

.£J^6îGa^^ 

,u= ; ” + STfvï ,y, 

’ L * - : -I STRUurv ' 

SYMBOL X ;t II 07, ,7-, Tr ,. — 

GG~1 !CC~CC + 1 * 7, ’ ,.2.» 'O' 

4 Vn ? °-5 HEN 10000 

IF E=?r/4MD N rr E< l°-' THEN l( XK>o 
, JR t^^ 

> m/f" 11 * IHFN 3990 " X=t 

FOX £0,03185214? ?,= , ■ -, 

GET 6$ 


4080 
4090 
4 J 00 
4110 
4120 
4130 
4 .1 4 


4 1 70 
4 1 80 
4 1 90 


t : GOTO 41.7 
[•“GOTa 41 ? 


4240 

4250 

4260 

4270 

4280 


x = XA:y==y A 

fr ®*-chr<mi S) thew ' 

F rî S r HR * (17>T, «N X=x: 

IF -■ GÎÆSÎ îio-î Î3gï S 

*>sô UQ0T0 41 

IF X<1 THEN >:=1 

o x. ; o/ihen :<=I 0 
IR Y <1 THEN Y.,-1 

ÿ*<xA,ÎÀÎ:^\..;jj E j,- 3< ^o 

REM- — __Î. X ’ V )s S” : 0 * ( XA, V 

FOR l=o TO 19 

X^X(Ii:y= Ya) 

IF D*-<x’y)=»b» thEN X “ X ~ 1 :G OTO 4260 
IF D*(X, Y > *~ X + 1 :G °T0 4260 

if s,‘ï:ïî::!: -- ^J ,B0T0 ^ 

IF v$i,yj,,î ^ THEN 4330 
” 1 HEN 4390 

0 ' (1! 'Y ( I)): D $iX,Y ! = D$ i Xa)iy(I) 


: D* i 


’ : D 4 . ■, 


î GOTO 431 


4 :!?° x(n= X:Ya> ^ - 

4 ..vio mf ;< r : r .. . . . ■ - ■ 

4320 GOTO 3610 ; 

;° 30 GSR ( 62 ) : REM 

4340 IF n* / v • t 

4350 IF DtÉ f >; ( I > ' y - r ■ > = " H " TH EN Dly,' I ) y - r 

4360 IF DU < x < I ) ' y !’ T ) 'i THEN D*(X(n,'và) I . , . , ?," ÎG0T0 4310 

4...70 if D*{X(i). y ;f I ®‘ 1 HEN D*<X < I) i Ï!n C Z »®» 1 G 0 T 0431 0 

SIS rSm~J-1î then d *«*i>.vci„ , :-ï- :udto 4310 

4410 . 1 F SîîJJJJ'JJJjJ*’’»" THEN D$a(I), Ya)) _„- t 
4420 IF D*fï({,;ÎJJ Z;;®" T HEN D*(X(I),| a Z ®„ : ® 0T0 4440 
4430 IF D*(X(I) v!" ° THEN D *(X(I),y m Z„r„ : f T0 4440 

44 4 o if j-;b- then d* ( x < i î : y < f i > ) s: : goto ^ 

4450 IF ( v y. X "I - 1 ' v 'I> ) THEN 4310 D 

4460 v*(ï 7 THEN v*( X ,vi = ,L„;ri; v 

WO SOTO 43 lo *' xa> ’ Vi ''>-V" = v 2 'ifÉiÈ-'-ï‘ I>, '" E ' ,IE - E F 2 ; y, l ,- : 

4480 LABEL"VIN ** Verr61 d& VIN ******** 

S?SZrI‘":” *“î : ‘ <v< , , 1S) 

«g gjmjîWM i«-ïîïS> , 

So L R Sf""ÎÎ; V —* I-«IT»»«.„ 

4380 ”“B‘ •' 

W , , B . 

4410 PATTERN tKOj_n CHpi 8 2 ‘ 3 * ‘ " 1 > * 1 = 1 " ’ Bo ' * Bu - * 80 , ,00, Mo. , 80 . * 4 1 , », 
4650 SOUND 36,1 

4700 rem - *L.),*„,*aü,* 2 .»,* 20 .» ? 1 - J , 4 a i|; 

4710 LhBE! "HAUT" ~~ - 

■*M:ÊÏturn^ 

;.;4739 ; ; rem=~Z 2 -i= 2 ..„..:Z. _ 7 ' o*;..' f ' 1 ' 1 "'G\ ■ -O': : : - 7 : 729 /.v 

4740 LABFl. "BAS" 

4750 5 VMBOLf O 3200 + . . 

4760 RE riJRN ‘ J 1 U ) , 22 M i 1 1 ■ 1 > * x n „ 

4769 REM- - ’’7 ’Z v’*' ’ 1 ' ! , O 

4770 LABEL "GAUCHE""’" ~ — -~ - 

4 790 RETUrn C ' ' ^ 200 " ( ( J J ~ 1 •' * 1 1 ) , 2 1 + c < j i ... x , m 

4799 REM- - __ ' 1 ' ’ *- ■' 1 ' 1 « O 

4a '” ' LABEL" DROITE" - 

48 1 0 SYMBOL T 0 3 ?f >0 + , , 7 i , . * 

4 320 RETURN J J " 1 > * 1 1 > . 21 + ( u I-x > * 1 1 » ... , 

lUOOû CL S: BOX C. 3 , o i* 9 i.-, ... ” 1 ' ' ‘ 

I G SYMBOL 12 , 0 X 70 ^ 3 'cr A 1 ° R ' 1 
1 0020 CURSOR 4 , 7 ". - P A r À A „ , F , ERDu "« 4 , 4 , 

10030 GET G$ *" UNT Voi -'Ie= vous 

S îp SS-n.” THEN CLS: end 
10060 Srf ioS: o THEN CLR:G0ra 3,60 

^Sïo' s^S:S^!;S 0 :^S ,e, 1 

J - 9 , GAGNE", 4 , 4 . 0 : GOTO 1002 


recommence? 



IMW ISSIQN D t USTIHC 
SOURŒZEN 

ve *e«x lu^Ua^BN "mi lî W f ! ,0ï . <n ' x *w l'impri- 

«ertainemeiit 6mmwém JS? 1 **? <# P h ®" E ) 1«* Iw (*er 

■«---JÇfi Ssw-Bsr* 


Ce phénomène est dû au fait que ZEN a été 
conçu pour le MZ-700 et celui-ci possède une 
routine en ROM à l’adresse 01 8FH nommée 
très judicieusement PRINTER. Or dans la ROM 

J^^liC-MKllnVapa.dB^ 

r:t D r c ' avaii fort simp,e me ^ 


66 r — 




J'ai donc placé 2 routines à l'adresse 2600H : 
la première se chargeant de placer la seconde 
à l'adresse OCFOOH et la seconde étant la 
fameuse routine d'impression. 

Entrez le programme ci-joint puis tapez 

ZEN>A 
OPTION > 

ZEN>K 
ZEN>A 
OPTION > 

ZEN>K 

ZEN>WO 

START> 1 200H 

ST0P>2680H 

EXEC> 2600H 

LOAD > 1 200H 

NAME>ZEN XIMZ-80K) 

Et maintenant à chaque fois que vous charge- 
rez ZEN, une routine d'impression sera placée 
a l'adresse OCFOOH. 

Si lors d'une tentative d'impression, votre 
imprimante n'est, soit pas connectée, soit pas 
branchée, ZEN vous dira : 

IMPRIMANTE PAS CONNECTEE 

P.S. : Pour ceux qui ne disposent pas de 48Ko 
(et oui, j'ai pensé à eux !) il suffit de modifier 
la ligne 1 et de rentrer à la place de OCFOOH 
l'adresse de la fin de votre mémoire moins 
0100H (256). 


Bon LM a tous 


A. MORETTE 




i 



I4FCU74 

ECU 8CFÜ8H 

2 




CRG 268814 

3 




LJmD $ 

4 

2688 

211426 

TRfiHSPOLîTï 

LD HL?FINTRflN: 

5 

2603 

V iiQjî 

1 1 88 CF 

i bp H i~i 


LD DE, IMPOUT 

; £i . .ü.jT-jLf 

7 

2689 

EDB0 


LD 1 R 

Z’ 

260B 

2100CF 


LD HL? FOUT 

5 

ilb8E 

229EÎ9 


LD <199EH?,HL 

10 

2611 

C3001-2 

F 1 NÏRftNS s 

JP 1288H 

1 1 




CRG IMPOUT 

12 

CF88 

F 5 

FOUT s 

P U 3 H H F 

•s T 

i -2* 

CF81 

3E30 


L.D h ? 3 

1 4 

CF03 

CD16CF 


CHLL PSTfiTUS 

15 

CF86 

Fl 


î ri* 

1 O 

CF8? 

D3FF 


DUT <255?? fl 

1 ? 

ÜF89 

3E88 


LD m?88H 

i h 

CF8B 

D3FE 


UüT 254 > ? h 

1 

Ür 0D 

3E01 


Lü ri? 1 

28 

CF0F 

f-rr ■; “i 

CD 1 CCF 

nr 


CflLL PSTfiTUS 

•X î ! i,,‘ . ; 

11: 

•? T 

1 —- > i 

Mi 

D3FE 


:vjiV ri 

DUT <254?? fl 


"■C f ~ 

f;q 


PET 

24 

CF 16 


P S Th T US s 

rush bc 

25 

CFI? 

r-jîf 


FÜ5H D'L 


L-r 1 L 

f;C ■: Ci 

1E86 


r fr ÇT n f.. 

i-4= 

CF1B 

013888 


LD BC ? 8 

2 V" 

Cr 1 E 

E68D 

FS 12; 

fl ND 13 ’ 

38 

CF 28 

L*H 


CF" D 

31 

L-i~ i_ i 

C 22 7 Dr 


JP NZ? PST3 

32 

CF 24 

D 1 



34 

FC ÎÇ’ 

Ci 



36 

f;P2'7 
.“P V ‘4‘ 

|§, 

bl 

h i— 

PS T 3 » 

LU- ri? b 

77 , r •“ 

39 


-_-i_ i. 

C2 1 ECF 




fi w i. J _• 

42 CF 34 11SDCF LD DE, 21 1 

43 Dr 37 CD 1308 CrtLL 13H_ 

4 f -_?Hl kj b i 7 -■ L -i. 

45 DF3D 494D5852 M i s DB "IMPRIMANTE 




: 1 1 ^ 

D4 1 4L 




45 CF 31 43344545 

4 Î-) iï-»’ 




îfl7SSlS8SlBfi 


FOURNITURES 

POUR 

L’INFORMATIQUE 





